Warten Befehl?

[raysto]

Bei mir is ein Fehler. Wenn ich diesen Code habe:

Delphi-Quellcode:

procedure TForm1.Image1Click(Sender: TObject);
begin
  form1.Image1.Picture.LoadFromFile('C:\Users\Raphael\Pictures\closeklick.ico');
  // Hier soll eine Sekunde gewartet werden.
  sleep(60);
  form1.Image1.Picture.LoadFromFile('C:\Users\Raphael\Pictures\close.ico');
  // Hier soll eine Sekunde gewartet werden.
  sleep(60);
  application.Terminate;
end;

end.

Dann wechselt der das Bild nich, sondern schließt einfac nur.
Wenn ich nur den ersten Bildwechsel drinhabe und den zweiten und das beenden rausnehme, wechselt er. Woran kann das liegen?