//Пример кода : Целое число для цикла 
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 := 'A' To 'E' 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;