Запись в базу после нажатия Enter

procedure TDM.FbClientFieldChange(Sender: TField);
begin
   FbClient.ApplyUpdates;
end;

if Key = VK_RETURN then 
begin
  FbClient.ApplyUpdates;
  Key := 0;
end;

if Key = VK_RETURN then 
begin
  PopupMenu1.Popup(100,200); // в скобках координаты
  Key := 0;
end;

      DbClient.CellRect(DbClient.Col,DbClient.Row).Top;
      DbClient.CellRect(DbClient.Col,DbClient.Row).Left;
      DbClient.CellRect(DbClient.Col,DbClient.Row).Right;
      DbClient.CellRect(DbClient.Col,DbClient.Row).Bottom;

implementation
 
type
  THackDBGrid=class(TDBGrid);
 
//...
// В месте где нужны координаты
var
  CurrRow: Integer;
  Rect: TRect;
begin
  // и "Row" и "CellRect"  - protected и напрямую недоступны
  CurrRow := THackDBGrid(DBGrid1).Row; 
  Rect := THackDBGrid(DBGrid1).CellRect( ИндексНужнойКолонки, CurrRow );
  // Rect теперь содержит нужные нам экранные координаты или 
  // пустой прямоугольник, если ячейки с такими колонкой-строкой не существует
end;

  var
  CurrRow: Integer;
  Rect: TRect;
begin
CurrRow := THackDBGrid(DBGrid1).Row;
  Rect := THackDBGrid(DBGrid1).CellRect(DBGrid1.SelectedIndex, CurrRow );
if Key = VK_RETURN then
begin
 PM_Osn_kar.Popup(X,Y);
  Key := 0;
end;