1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

with TrayIconData do
  begin
    cbSize := SizeOf(TrayIconData);
    Wnd := Handle;
    uID := 0;
    uFlags := NIF_MESSAGE + NIF_ICON + NIF_TIP;
    uCallbackMessage := WM_ICONTRAY;
    hIcon := Application.Icon.Handle;
    StrPCopy(szTip, Application.Title);
  end;

  Shell_NotifyIcon(NIM_ADD, @TrayIconData);					

1:
2:

const  //nach der Uses-Klausel
  PM_TRAY = WM_APP + 201;					

1:
2:
3:
4:
5:
6:

private
    { Private-Deklarationen }
    procedure PMTray(var sMsg: TMessage); message PM_TRAY;
  public
    { Public-Deklarationen }
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

procedure TForm1.PMTray(var sMsg : TMessage);
var
  Mauspos: TPoint;
begin
  inherited;
  GetCursorPos(Mauspos);
  case sMsg.LParam of
    WM_LButtonDown:
    begin
      PopupMenu1.PopupComponent := MainForm;
      SetForegroundWindow(Handle);
      PopupMenu1.Popup(Mauspos.X, Mauspos.Y);
    end;
    WM_RButtonDown:
    begin
      PopupMenu1.PopupComponent := MainForm;
      SetForegroundWindow(Handle);
      PopupMenu1.Popup(Mauspos.X, Mauspos.Y);
    end;
  end;
end;