Popup irgendwo

[ozz]

Hallo zusammen,
ich habe etwas Probleme mit einen Popup. Dieses erscheint nicht an der richtigen Stelle. Ich weiß auch , was das Problem ist. Die verwendeten Koordinaten beziehen sich immer relativ auf die auslösende Objekt. Für das Form gibt es die (siehe unten). Wie bekomme ich diese mit Hilfe des Senders?

Delphi-Quellcode:

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if Button= mbRight then PopupMenu1.Popup(Form1.Left + x,Form1.Top +y);
end;