Eigenschaften eines Objektes für ein paar Sekunden zuweisen

[Delphiturbo]

Zitat von mkinzler:

Dann Poste doch mal den Code deiner Funktion

Delphi-Quellcode:

procedure Pausen(Laps : Cardinal); 
var 
Debe,fine : Cardinal;
begin
Debe := gettickcount;
  Fine  := debe + Laps;
  while Fine>Debe do 
begin
    Debe := gettickcount;
    Application.ProcessMessages
  end;
end;