1:
2:
3:
4:

procedure Tfrm_Main.FormResize(Sender: TObject);
begin
  if frm_Main.WindowState = wsMinimized then
    ...					

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnMinimize := FormMinimize;
end;

procedure TForm1.FormMinimize(Sender: TObject);
begin
  // ...
end;					

1:

procedure FormMinimize(Sender: TObject);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

// Beim Verkleinern der Form wird nur noch das Systray-Icon angezeigt.
procedure Tfrm_Main.FormMinimize(Sender: TObject);
begin
  frm_main.cooltray.Enabled:=true;
  frm_Main.cooltray.IconVisible:=true;
  frm_Main.Hide;
end;

// Beim Doppelklick auf das Systray-Icon verschwindet dieses,
// und das Fenster erscheint wieder
procedure Tfrm_Main.CoolTrayDblClick(Sender: TObject);
begin
  cooltray.Enabled:=false;
  cooltray.IconVisible:=false;
  frm_Main.show;
end;