Problem mit "Sleep"-Anweisung

[himitsu]

Hi Luckie,

wieso soll das nicht funktionieren?

Delphi-Quellcode:

Procedure TForm1.Button1Click(Sender: TObject);
  Begin
    Label1.Visible := True;
    Application.ProcessMessages;
    Sleep(2000);
    Label1.Visible := False;
  End;

Delphi-Quellcode:

Label1.Visible := True;
Application.ProcessMessages;
Sleep(2000);
Label1.Visible := False;
Application.ProcessMessages;
{nachfolgende Anweisungen}