🚀 go-pugleaf

I have coded this but what is wrong?

//-------main.cpp--------------------------------------------------------------
void __fastcall TMainForm::WmCopyData(TWMCopyData &Msg)
{
  ShowMessage("test"); // fails
}



//-------main.h--------------------------------------------------------------

private:
        void __fastcall WMDropFiles(TWMDropFiles &Msg); // DragDrop
        void __fastcall WmCopyData(TWMCopyData &Msg);
public:

        BEGIN_MESSAGE_MAP
        MESSAGE_HANDLER(WM_COPYDATA, TWMCopyData, WmCopyData)
        MESSAGE_HANDLER(WM_DROPFILES,TWMDropFiles,WMDropFiles)
        END_MESSAGE_MAP(TForm)

//-------App.cpp--------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

USEFORM("main.cpp", MainForm);

WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR cmdLine, int)
{
// My
HANDLE hSemaphore = ::CreateSemaphore(NULL,1,1, "App.SEMAPHORE");
if(hSemaphore && WaitForSingleObject(hSemaphore, 0) != WAIT_OBJECT_0) {
    CloseHandle(hSemaphore);

         HWND hWnd = ::FindWindow("TApplication", "App 1.0");
         if (::IsIconic(hWnd))     // If it is minimized
         {
            ::ShowWindow(hWnd, SW_SHOWDEFAULT);     // Show it
         }
         ::SetForegroundWindow(hWnd);     // Bring it to the foreground


      if (strlen(cmdLine) != 0) {
        COPYDATASTRUCT cds;
        cds.cbData = strlen(cmdLine) + 1;
        cds.lpData = cmdLine;
        SendMessage(hWnd, WM_COPYDATA, 0, (LPARAM)&cds);
      }

    return 0;
}


 Application->Initialize();
 Application->Title = "App 1.0";
                 Application->CreateForm(__classid(TMainForm), &MainForm);
                 Application->Run();

ReleaseSemaphore(hSemaphore,1,NULL);
CloseHandle(hSemaphore);

 return 0;
}