TPopupMenu.Popup aber kein markiertes Item...

[Kedariodakon]

So mal ganz einfach erklärt, ich habe ein TPopupMenu welches ich mit

Delphi-Quellcode:

{ pp: TPopupMenu  }
pp.Popup( Mouse.CursorPos.X - 10, Mouse.CursorPos.Y - 10 );

bei einem Buttonklick aufrufe, somit steht der Mauszeiger auf dem ersten Object im Popup, Aber das erste Item wird nicht markiert...

So wie bekomme ich das hin, das bei diesem Aufruf automatisch dann das erste Popup markiert ist?
Hat da jemand eine Idee?

Hab da mal eine Beispielanendung + Source angehangen, damit man das besser versteht =)