Pause methode bis tastendruck

[ManuMF]

Hallo,

Delay könnte nützlich sein. Ich würde da empfehlen

Delphi-Quellcode:

var Stoppen: Boolean = false;

procedure Wieauchimmer;
begin
  repeat
    pause(500);
  until Stoppen;
end;

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

Gruß,
ManuMF