Kod:
var harf : char; begin for harf := 'Z' DownTo 'A' do ShowMessage('Harfiniz = '+harf);
Not : for harf := 'Z' DownTo 'A' do G ile A arasında bir Harf Üretir! Bunu değiştirebilirsiniz.