Brak wykoniania instrukcji przed instrukcją "Sleep"

Witam
Mam dziwny problem z instrukcją Sleep otóż nie wykonują mi się instrukcje przed nią.

procedure TForm1.Button1Click(Sender: TObject);
begin
  Begin
    Shape3.Brush.Color := clGreen;
    Sleep(5000);
    Shape3.Brush.Color :=clBlue;
  end;

Pozdrawiam i z góry dziękuje za pomoc

procedure TForm1.Button1Click(Sender: TObject);
begin
  Begin
    Shape3.Brush.Color := clGreen;

    application.ProcessMessages //   !!!!!!

    Sleep(5000);
    Shape3.Brush.Color :=clBlue;
  end;

Dziękuję bardzo za pomoc, mam jeszcze jedno pytanie szukałem oczywiście na nie odpowiedzi, ale widocznie za słabo a konkretnie chciałbym wiedzieć jak na przykład w pętli sprawdzić czy został wciśnięty konkretny przycisk np. Button2.
Pozdrawiam

Jeżeli użyjesz sleep to program przez te 5 sek nie działa, więc zrób coś takiego:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Shape3.Brush.Color:=clGreen;
  Timer1.Interval:=5000;
  Timer1.Enabled:=true;
end;

procedure TForm1.Timer1OnTimer(Sender: TObject);
begin
  Timer1.Enabled:=false;
  Shape3.Brush.Color:=clBlue;
end;

No właśnie zauważyłem :)
A jeżeli bym chciał np. za kolejne 5 sekund zmienić kolor innego shape-a to powinienem robić to już w oddzielnym timerze?

const Tab:array of record Shape:TShape; Color:TColor; Interval:Integer; end;

procedure TForm1.FormOnCreate(Sender: TObject);
begin
  SetLength(Tab,3);
  Tab[0].Shape:=Shape3; Tab[0].Color:=clGreen; Tab[0].Interval:=5000;
  Tab[1].Shape:=Shape3; Tab[1].Color:=clBlue; Tab[1].Interval:=10;
  Tab[2].Shape:=Shape2; Tab[2].Color:=clGreen; Tab[2].Interval:=5000;
  Timer1.Interval:=100;
end;

procedure TForm1.Timer1OnTimer(Sender: TObject);
var T:Integer;
begin
  Timer1.Enabled:=false;
  T:=Timer1.Tag;
  Tab[T].Shape.Brush.Color:=Tab[T].Color;
  Timer1.Interval:=Tab[T].Interval;
  Timer1.Tag:=(T+1)mod(Length(Tab));
  Timer1.Enabled:=true;
end;

Ok dzięki wielkie, a o Tym przechwytywaniu zdarzenia wciśnięcia buttona mogę się coś dowiedzieć? Czy szukać dalej?

Możesz użyć właściwość Tag przycisku do zaznaczenia że był wciśnięty.
Nie rób pętli w programie które trwają dłużej niż kilkadziesiąt milisekund.

Mam za zadanie zrobić symulację sygnalizacji świetlnej, więc pętla będzie trwała dłużej...

Poszukaj na tym forum, jest wszystko gotowe tylko tablice wypełnić odpowiednio.