Развернуть копию программы из трея

Application.ShowMainForm := False;

ShowMessage(MainForm.Handle, SW_SHOW);

postMessage(Self.Handle, WM_SysCommand, SC_Restore, 1);

procedure TMainForm.ControlWindow(var Msg: TMessage);
begin
  // если это сообщение - "свернуть форму" - перехватываем его
  If Msg.WParam = SC_MINIMIZE then
     begin
       Shell_NotifyIcon(nim_add, @_tray1); // добавляем в трей значок
       ShowWindow(Handle, sw_Hide); // скрываем форму
     end
  else if Msg.WParam = SC_RESTORE then // показать форму
    Self.Show
  else // иначе
    inherited; // не перехватываем сообщение
end;

procedure TMainForm.ControlWindow(var Msg: TMessage);
begin
  // если это сообщение - "свернуть форму" - перехватываем его
  If Msg.WParam = SC_MINIMIZE then
     begin
       Shell_NotifyIcon(nim_add, @_tray1); // добавляем в трей значок
       ShowWindow(Handle, sw_Hide); // скрываем форму
     end
  else if Msg.WParam = SC_RESTORE then // показать форму
    begin
      Self.Show;
      inherited; // ВОТ ЭТО ВСЁ ТАКИ ЛУЧШЕ ОСТАВИТЬ ТУТ
    end
  else // иначе
    inherited; // не перехватываем сообщение
end;

postMessage(FormOfFirstCopy.Handle, WM_SysCommand, SC_Restore, 123456);

Icon: TIcon;

   H := FindWindow(nil,'AutoReboot v2.3F   ');
    postMessage(h, WM_SysCommand, SC_Restore, 123456);

Icon: TIcon;

private
  // объявление в форме (в проге оно уже как-то объявлено)
  icon1: HIcon;
... // а это на создание формы:
  icon1 := LoadIcon(hInstance, PAnsiChar(FileName));

  _tray1: TNotifyIconData; // структура для иконки трея
  tray_icon: HIcon;
  hFileMapObj: THandle; //описатель FaleMapping
  lpBaseAddress: PChar; //"указатель" на начальный адрес данных

Icon: TIcon;

Icon: HIcon;