//Пример кода : Целое число для цикла 
var
  i : Integer;

begin
  // Цикл 5 раз
  For i := 1 to (10 div 2) do
    ShowMessage('i = '+IntToStr(i));
end;

//Пример кода : Символ для цикла
var
  c : char;
begin
  // Цикл 5 раз - вниз
  For c := 'E' downto 'A' do
    ShowMessage('c = '+c);
end;

//Пример кода : Перечисление для цикла 
var
  suit : (Hearts, Clubs, Diamonds, Spades);
begin
  // Цикл 3 раза
  For suit := Hearts to Diamonds do
    ShowMessage('Suit = '+IntToStr(Ord(suit)));
end;