erstmal danke...
ich hab das jetzt mal folgendermaßen implementiert:
Delphi-Quellcode:
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
stoppen := true;
end;
procedure pausieren;
begin
repeat
sleep(500);
until Stoppen;
end;
{..}
//im programm rufe ich dann pausieren auf:
pausiere;
Doch das programm friert komplett ein und das über mehrere sekunden, obwohl ich wie bekloppt auf die tastatur einhaue ^^