procedure TMainForm.InitTrayIcon;//процедура добавления иконки в трей
var TrayIconDataOld: TNotifyIconData;
begin

  try
  if GetHandleOld <> 0 then //GetHandleOld(пишем сами под себя)  - получаем хэндл, сохранённый в прошлый раз
    begin
      with TrayIconDataOld do//
      begin
        cbSize:= SizeOf(TrayIconDataOld);
        Wnd:= GetHandleOld;  //GetHandleOld  - получаем и присваиваем хэндл, сохранённый в прошлый запуск прграммы
        uID:= 0;
        uFlags:= NIF_MESSAGE + NIF_ICON + NIF_TIP;
        uCallbackMessage:= WM_ICONTRAY;
        hIcon:= Application.Icon.Handle;
        szTip:= 'Имя моей программы или имя твоей мамы';
      end;
      Shell_NotifyIcon(NIM_DELETE, @TrayIconDataOld);//удаляем старую иконку из трея(этот код у меня в FormDestroy)
    end;
  except
  end;

  with TrayIconData do //а тут мы создаём новую иконку
  begin
    cbSize:= SizeOf(TrayIconData);
    Wnd:= Handle;     //здесь Handle = Self.Handle на форме.
    uID:= 0;
    uFlags:= NIF_MESSAGE + NIF_ICON + NIF_TIP;
    uCallbackMessage:= WM_ICONTRAY;
    hIcon:= Application.Icon.Handle;
    szTip:= 'Имя моей программы или имя твоей мамы';
  end;
  Shell_NotifyIcon(NIM_ADD, @TrayIconData);//добавляем новую иконку

  SetHandleOld(Handle);//и сохраняем Handle куда-нибудь

end;