Timer mit delay

[Zidane]

Hallo,

ich möchte einen Timer so einbauen, dass während der Timer Prozedur eine gewisse Zeit gewartet wird.

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
     Form1.ShapeRot.Brush.Color := clred;
     Form1.ShapeGelb.Brush.Color := clyellow;
     //hier 2 Sekunden warten
     Form1.ShapeRot.Brush.Color := clwhite;
     Form1.ShapeGelb.Brush.Color := clwhite;
     Form1.ShapeGruen.Brush.Color := cllime;
end;

Wenn ich die Anwendung so abrufe springt das untere Shape (soll eine Ampel sein, oben ShapeRot, dann ShapeGelb, dann ShapeGruen) direkt auf grün, sprich nur Form1.ShapeGruen.Brush.Color := cllime; wird ausgeführt. Hab ich irgendetwas übersehen warum die anderen beiden Shapes nicht vorher noch eingefärbt werden?

Und, um auf meine eigentliche Frage zurückzukommen, wie baue ich eine Art Verzögerung bei "//hier 2 Sekunden warten" ein? Habe bereits gesucht, aber unter delay finde ich nichts und sleep friert das ganze ein, aber ich möchte ja nur, so. oben, 2 Sekunden warten!

Danke und viele Grüße,

Zidane