Пиктограмма приложения в окне Tray

Как поместить пиктограмму в Tray?

Решение:

function TaskBarAddIcon(hWindow: THandle; ID: Cardinal; ICON: hicon;
                        CallbackMessage: Cardinal; Tip: String): boolean;
var
  NID: TNotifyIconData;
begin
  FillChar(NID, SizeOf(TNotifyIconData), 0);
  with NID do begin
    cbSize := SizeOf(TNotifyIconData);
    Wnd := hWindow;
    uID := ID;
    uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;
    uCallbackMessage := CallbackMessage;
    hIcon := Icon;
    if Length(Tip) > 63 then SetLength(Tip, 63);
    StrPCopy(szTip, Tip);
  end;
  Result := Shell_NotifyIcon(NIM_ADD, @NID);
end;

[News Group]

Примечание
В uses необходимо добавить ShellAPI.