Warten Befehl?

[wolfgang_SV]

ich hab mir folgende delay_procedure geschrieben, die
so funktioniert wie ich mir das vorstelle.

Delphi-Quellcode:

procedure mein_delay(msec:longint);
  var
  Start,Stop:extended;
  begin
    start := gettickcount;
    repeat                                       
    stop := gettickcount;
    application.processmessages;
    until (stop - start ) >= msec;
  end;