кстати лучше так будет:
Код:
var
global: integer=0; {можно byte}
...
procedure TForm1.Timer2Timer(Sender: TObject);
begin
case global of
0:
begin
label1.show;
self.update;
end;
1:
begin
label2.show;
self.update;
end;
{сколько угодно, пока не будет переполнения типа))))}
end;
global := global+1
end
end;
а еще лучше присвоить каждому tag и обрабатывать (пардон, не в цикле а в таймере)