Fórum DBGrid OnMouseDown não funciona #363797

Tenho um DBGrid onde preciso selecionar um item e quando clicar com o botão direito preciso que ele Abra um Sub-menu e isso não sei porque não acontece.

Coloquei um Break-point para debugar o programa e simplesmente ele não entra no evendo OnMouseDown do DBGrid.

A configuração do DBGrid está da seguinte maneira, Tenho algumas colunas que deixo com ReadOnly := True e outras não mas isso eu controlo numa boa e está funcionando o que não funciona é o evento OnMouseDown.

Segue parte do código abaixo:

procedure TfrmCota.DBGrid1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
Pt : TPoint;

begin
GetCursorPos(Pt);
if (Sender = DbGrid1) and (Button = mbRight) then
PopupMenu1.Popup(Pt.X+15, Pt.Y+10);
end;

Todos os componentes estão no form e configurados e quando compilo o programa ele não tem erros.

Por favor quem puder ajude.

Atenciosamente,

Tadeu Rodrigues de Oliveira
Números Informática.