OnIdle wird immer wieder ausgeführt

[RavenIV]

@Sidorion:
danke für den Tip, aber der OnIdle wird trotz Done := True immerwieder aufgerufen.

hier ein Auszug aus meinen Sourcen:

Delphi-Quellcode:

procedure TFoTrayIcon.FormCreate(Sender: TObject);
begin
  Application.OnIdle := FoTrayIcon.MyIdleHandler;
  ...
  ...
end;

procedure TFoTrayIcon.MyIdleHandler(Sender: TObject; var Done: Boolean);
begin
  Done := True;
  TiIdleTimer.Enabled := False;
  TiIdleTimer.Enabled := True;
end;

procedure TFoTrayIcon.TiIdleTimerTimer(Sender: TObject);
begin
  FoTrayIcon.Hide;
  TiIdleTimer.Enabled := False;
end;

wo liegt mein Denkfehler?