Rechenzeit für Anwendung

[Angel4585]

Funzt perfekt, Danke!!

Edit: zu früh gefreut.. Ich kann das programm nicht beenden. Kann man in die Prozedur etwas reinpacken, damit das geht?

Habs, :

Delphi-Quellcode:

procedure ProcessMessages; 
var 
  Msg: TMsg; 
begin 
  if PeekMessage (Msg, 0, 0, 0, PM_REMOVE) then 
   begin 
   if Msg.Message = WM_QUIT then
    Halt;
   TranslateMessage (Msg); 
   DispatchMessage (Msg); 
   end; 
end;