Pause methode bis tastendruck

[Pseudemys Nelsoni]

Delphi-Quellcode:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
stoppen := true;
end;

procedure pausieren;
begin
  while not stoppen do
  begin
    sleep(1);
    Application.ProcessMessages;
  end;
end;

{..}

//im programm rufe ich dann pausieren auf:
pausiere;