[kolr]

с таймером както так

var
  Timer01: TTimer;
  Timer02: TTimer;
  Timer03: TTimer;


procedure OnTimer01(Sender: TObject);
begin
  {делаем дела}
  Timer01.enabled:=false;
end;


procedure OnTimer02(Sender: TObject);
begin
 
  {делаем дела}
 Timer02.enabled:=false;
 Timer03.enabled:=true;
end;
procedure OnTimer03(Sender: TObject);
begin

  {делаем дела}
 Timer03.enabled:=false;
end;


procedure Init;
  begin
  Timer01:=TTimer.Create(nil);
 Timer01.OnTimer:=@OnTimer01;
 Timer01.enabled:=false;
 Timer01.interval:=500;

 Timer02:=TTimer.Create(nil);
 Timer02.OnTimer:=@OnTimer02;
 Timer02.enabled:=false;
 Timer02.interval:=500;

 Timer03:=TTimer.Create(nil);
 Timer03.OnTimer:=@OnTimer03;
 Timer03.enabled:=false;
 Timer03.interval:=3700;
 end;

procedure Free;
begin
  Timer01.free;
  Timer02.free;
  Timer03.free;
end;