Pause methode bis tastendruck

[Klaus01]

Delphi-Quellcode:

  
procedure pausieren; 
begin 
  repeat 
    sleep(500);         
    application.ProcessMessages;
  until Stoppen; 
end;

oder anstelle von sleep delay verwenden.
delay findest Du in der CodeLib.

Grüße
Klaus