PopUp меню для строк DBGrid

TPoint mousePos, clientPos;
    GetCursorPos(&mousePos);
    clientPos = DBGrid1->ScreenToClient(mousePos);
    TGridCoord mouseCoors = DBGrid1->MouseCoord(clientPos.x, clientPos.y);
 
    if (mouseCoors.X < 0 || mouseCoors.Y < 0) {
        PopupMenu1->CloseMenu();
    }

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
  TPoint point;
  GetCursorPos(&point);
  AnsiString pos;
  pos.sprintf("[%d;%d]",point.x,point.y);
  Label1->Caption = pos;
};

int x=Form1->ScreenToClient(Mouse->CursorPos).x;
int y=Form1->ScreenToClient(Mouse->CursorPos).y;

void __fastcall TMainForm::NewDBWindowProc(TMessage &msg)
{
       if(msg.Msg == WM_RBUTTONDOWN) // Нажали правую кнопку мыши ?
    {
         if(ADOQuery1->RecordCount!=0)
          {
           if(DBGrid1->SelectedRows->Count > 0)
          {
            TPoint P = TPoint(msg.LParamLo, msg.LParamHi);
        P = DBGrid1->ClientToScreen(P);
        PopupMenu3->Popup(P.x, P.y); // Показываем popup в области грида
                msg.Result = 0; // Сообщение обработано ...
        return;     // Уходим
          }
           else
          {
           AnsiString ert = "\t\t\tНе выделена ни одна строка в базе!!!!!!!!\n\nДля копирования или перемещения строк в базе, зажмите клавишу Ctrl на клавиатуре и выберите необходимые строки левой кнопкой мыши, а затем нажмите на правую кнопку мыши для вызова контекстного меню\n\nДля снятия выделения строк используйте клавишу Esc";
          if (Application->MessageBox(ert.c_str(),"Предупреждение",MB_OK +MB_TOPMOST+ MB_ICONEXCLAMATION)==IDOK)
          {
            return;
          }
         }
        }
    }
    OldDBWindowProc(msg); // Обрабатываем остальные сообщения
}
 
void __fastcall TMainForm::FormCreate(TObject *Sender)
{
        OldDBWindowProc = DBGrid1->WindowProc;
        DBGrid1->WindowProc = NewDBWindowProc;
}
 
 
//в h-файле
private:
 
        TWndMethod OldDBWindowProc;
    void __fastcall NewDBWindowProc(TMessage&);