PageControl: PopUp-Menu

[Alexander]

Hallo Leute,
ich habe mal wieder ne kleine Frage.
Und zwar habe ich einem Pagecontrol ein PopUp-Menü zugewiesen.
Wenn es aufklappt und auf ein Item geklippt wird, möchte ich das sich der TabIndex dementprechend ändert. Es soll also der TabIndex auf das Tabsheet gesetzt werden, auf das zuvor geklickt wurde.
Doch irgendwie bekomme ihc das nicht hin.
Hier mal mein Versuch:

Delphi-Quellcode:

 ClientPt := ScreenToClient(PopupMenu1.PopupPoint);
 Pagecontrol1.TabIndex := Pagecontrol1.IndexOfTabAt(ClientPt.X, ClientPt.Y);

So macht wird kein Tabsheet markiert...