Timer mit delay

[Zidane]

@Matze: Danke, klingt gut, aber ich habe mit dem implementieren Probleme.
Hab CounterVar deklariert aber weiß nun nicht genau wo ich das Inc einbinden soll.

Delphi-Quellcode:

var
  Form1: TForm1;
  CounterVar: Integer;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
     Timer1.Enabled := true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Inc(CounterVar);
end;

begin
      // bei Intervall 1000 sind das nun 2 Sek
     if CounterVar = 2 then
     Form1.ShapeRot.Brush.Color := clred;
     Form1.ShapeGelb.Brush.Color := clyellow;
     Form1.ShapeRot.Brush.Color := clwhite;
     Form1.ShapeGelb.Brush.Color := clwhite;
     Form1.ShapeGruen.Brush.Color := cllime;
     CounterVar := 0;
end;

end.

@MrKnogge: Wenn alles ausgeführt werden würde könnte man aber bevor ShapeGruen aber lime umgestellt wird die anderen beiden Shapeumänderungen erkennen, oder?

Danke,

Zidane