Оператор выбора...

[Bill Gates]

На форме стоит таймер с интервалом 5 сек. Как сделать так, чтобы Label
каждые 5 секунд меняла свой Caption на один из подобных вариантов

1)Текст1
2)Текст2
3)Текст3
и т. д.

Думаю сдесь нужно задействовать оператор выбора. Но как?

[BanDit]

var
x:byte;
procedure TForm2.Timer2Timer(Sender: TObject);
begin
timer1.interval:=5000;
   case x of

  0:label1.Caption:='текст1';
  1:label1.Caption:='  текст2';
  2:label1.Caption:='текст 3';
  3:label1.Caption:='текст 3';
// и т.д.
end;
   X:=x+1
        end;

[Stilet]

Залей это в массив и в таймере выбирай элементы через succ

[mihali4]

X:=x+1

Проверочку забыли:
if x>n then//конечное анализируемое
x:=0;