PopUp-Menü mit Doppelklick öffnen

[derpepe]

Hab das momentan so gemacht:

Delphi-Quellcode:

var
  Maus :  TPoint;


procedure THauptfenster.SynEdit1DblClick(Sender: TObject);
begin
  PopupMenu1.Popup(Maus.X,Maus.Y);
end;

procedure THauptfenster.SynEdit1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  Maus.X:=X;
  Maus.Y:=Y;
  Maus:=(Sender as TControl).ClientToScreen(Maus);
end;

Funktioniert auch, aber die Variable "Maus" mag ich eigentlich nicht so haben.
Mir wäre es lieber wenn ich das alles in einem Event hätte und nicht so verstreut
Je größer das Projekt wird umso unübersichtlicher wird das.