Отображение скрытого в трее окна программы при попытке запуска ее копий

 HANDLE hMutex = OpenMutex(MUTEX_ALL_ACCESS, 0, "MyApp");
 if(!hMutex)
   hMutex = CreateMutex(0, 0, "MyApp");
 else
   {
     HWND hWnd = FindWindow(0, "MyApp");
 
     if (IsWindowVisible(hWnd))
       SendMessage(hWnd, WM_SYSCOMMAND, SC_RESTORE, 0);
     else
       MessageBox(hWnd, "Приложение уже запущено (находится в трее).", "MyApp", MB_ICONASTERISK+MB_TOPMOST);
     SetForegroundWindow(hWnd);
     return 0;
   }
 
 Application->Initialize();
 SetApplicationMainFormOnTaskBar(Application, true);
 Application->Title = "MyApp";
 Application->CreateForm(__classid(TForm1), &Form1);
 Application->CreateForm(__classid(TForm2), &Form2);
 Application->Run();
 
 ReleaseMutex(hMutex);
 // CloseHandle(hMutex);

MessageBox(hWnd, "Приложение уже запущено (находится в трее).", "MyApp", MB_ICONASTERISK+MB_TOPMOST);

SendMessage(hWnd, WM_SYSCOMMAND, SC_RESTORE, 0);

void __fastcall TForm1::MyMinimize(TObject *Sender)
{
    Application->Restore(); // Magic !!!
    Hide();
    TrayIcon1->Visible = true;
}
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    Application->OnMinimize = MyMinimize;
}

TrayIcon1->Visible = 1;

void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
  if (Tag == 0)
  {
    CanClose = 0;
    Hide();
  }
}

void __fastcall TForm1::exitClick(TObject *Sender)
{
  Form1->Tag = 1;
  Close();
}

void __fastcall TForm1::TrayIcon1Click(TObject *Sender)
{
  if (Form1->Visible == 0)  // если форма скрыта
  {
    Form1->Show();  // отображаем ее
    Form1->WindowState = wsNormal;  // обычный размер
    Form1->FormStyle = fsStayOnTop;  // переносим на передний план
    Form1->FormStyle = fsNormal;  // делаем "обычным"
  }
  else
  {
    if (Form1->WindowState != wsMinimized)  // форма не минимизирована?
      Form1->Hide();  // скрываем
    else  // если свернута в панель задач
    {
      SendMessage(Form1->Handle, WM_SYSCOMMAND, SC_RESTORE, 0);  // восстанавливаем
      SetForegroundWindow(Form1->Handle);  // переносим на передний план
    }
  }
}

WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
          ............................. 
          HWND hWnd = FindWindow(0, "MyApp");
 
          if (IsWindowVisible(hWnd))
            SendMessage(hWnd, WM_SYSCOMMAND, SC_RESTORE, 0);  // программа была свернута в панель задач или развернута - всё ОК
          else
          {
            SendMessage(hWnd, WM_SYSCOMMAND, SC_RESTORE, 0);  // была скрыта - проблемы, не реагируют на нажатия кнопки "свернуть" и "закрыть" (форма "вынеслась" на передний план); вкладки TabSheet PageControl'a формы становятся визуально пустыми; думаю, дело в этой строке (и в моей голове)
//          после, если кликнуть на иконку в трее, видно, как окно формы разборачивается из панели задач
//          MessageBox(hWnd, "Приложение уже запущено (находится в трее).", "MyApp", MB_ICONASTERISK+MB_TOPMOST);  // "заглушка"
          }
          SetForegroundWindow(hWnd);
          return 0;
         ..............................
}

        HANDLE hMutex = OpenMutex(MUTEX_ALL_ACCESS, 0, L"MyApp");
        if (!hMutex)
            hMutex = CreateMutex(0, 0, L"MyApp");
        else
        {
            HWND hWnd = FindWindow(0, L"MyApp");
 
            if (IsWindowVisible(hWnd))
            {
                SendMessage(hWnd, WM_SYSCOMMAND, SC_RESTORE, 0);
                SetForegroundWindow(hWnd);
            }
            else
                SendMessage(hWnd, MY_MESSAGE(), 0, 0);
 
            return 0;
        }

UINT MY_MESSAGE()
{
    return RegisterWindowMessage(L"UI_CyberForumMessage");
}

void __fastcall TForm1::WndProc(Winapi::Messages::TMessage &Message)
{
    TForm::WndProc(Message);
    if(Message.Msg == MY_MESSAGE())
    {
        this->Show();
        this->WindowState = wsNormal;
        Application->BringToFront();
    }
}