Danke, es hat geklappt. Ist schon komisch, dass es von der Reihenfolge abhängig ist. Hier die Lösung:
Delphi-Quellcode:
procedure TForm1.ApplicationEvents1Minimize(Sender: TObject);
begin
Form1.FormStyle := fsStayOnTop;
TrayIcon1.Visible := True;
Form1.Hide;
end;
procedure TForm1.TrayIcon1DblClick(Sender: TObject);
begin
Application.MainForm.Show;
Application.Restore;
TrayIcon1.Visible := False;
end;
Danke und guten Nacht.