Katze fordert Prozessort heraus ;-)

[vielwerth]

Besonders der Tip von Chewi war goldrichtig:

Hier ist der (*geänderte*) Code:

procedure Pause(Zeit: Cardinal);
begin
sleep(Zeit);
Application.ProcessMessages;
end;

(*
procedure Pause(Zeit: Cardinal);
var Zeit1 : Cardinal;
begin
Zeit1:= GetTickCount;
repeat
Application.ProcessMessages;
until (GetTickCount - Zeit1 > Zeit);
end;

*)
Vielen Dank an alle für Euere Hilfe.
vielwerth