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