handle := GetModuleHandle(0);
//...
Begin
 With Tray do
 Begin
   cbSize := SizeOf(TNotifyIconData);
   Wnd := handle;
   uID := 1;
   uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
   uCallBackMessage := WM_NOTIFYTRAYICON;
   hIcon := LoadIcon(handle,'ICON');
   szTip := ('Название');
 End;
 Shell_NotifyIcon(NIM_ADD, Addr(tray));