var
i : Integer;
begin // Цикл 5 раз
for i := (10 div 2) DownTo 1 do
ShowMessage('i = '+IntToStr(i));
end;
i = 5
i = 4
i = 3
i = 2
i = 1
Пример кода : Символ для цикла
var
c : char;
begin // Цикл 5 раз
for c := 'E' DownTo 'A' do
ShowMessage('c = '+c);
end;
c = E
c = D
c = C
c = B
c = A
Пример кода : Перечисление для цикла
var
suit : (Hearts, Clubs, Diamonds, Spades);
begin // Цикл 5 раз
for suit := Diamonds DownTo Hearts do
ShowMessage('Suit = '+IntToStr(Ord(suit)));
end;