[ApplicatiOn]

создаешь timer

пишешь:

Код:

var
global: integer=0; {можно byte}

...

procedure TForm1.Timer2Timer(Sender: TObject);
begin
case global of
0: label1.show;
1: self.update;
2: label2.show;
3: self.update;
{сколько угодно, пока не будет переполнения типа))))}
end;
global := global+1
end
end;