Code: Alles auswählen
type
TForm(class...
private
procedure OnIdle(Sender...)
public
end;
procedure TForm1.FormCreate...
begin
Application.OnIdle:=@DoIdle;
end;
procedure TForm1.DoIdle(Sender, var Done:boolean);
begin
...
Application.OnIdle:=nil;
Done:=true;
end;