StringGrid und Popup

[SaFu]

Hi kann mir vielleicht einer sagen wie ich es schaffe eine zelle im StringGrid mit Rechter maustaste zu selektieren und das dann ein popup menü auf geht habe es mal so versucht

Delphi-Quellcode:

procedure TForm7.StringGrid1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if Button = mbRight then
 StringGridpopup.Popup(Mouse.CursorPos.X,Mouse.CursorPos.Y);
end;

danke sascha