Rechtsklick auf Listbox öffnet PopUp "ohne Linksklick"

[Aike]

Hallöchen,

ich habe im Forum schon gesucht, aber leider nichts Passendens/Funktionierendes gefunden.
Wenn ich auch meine Listbox rechtsklicke, soll das unter der Maus liegende Item markiert und das PopUpMenu geöffnet werden. Das wurde hier schonmal angesprochen, aber leider keine Lösung gefunden. Das Problem ist, dass, egal wo ich auf der Listbox rechtsklicke, das PopUpMenu immer zum letzten Eintrag gehört, der linksgeklickt wurde. (Ich hoffe, das war verständlich )
Es soll quasi so aussehen:

Delphi-Quellcode:

procedure TForm1.Listbox1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if Button=mbRight then
  begin
    //Markiere unter dar Maus befindliches Listbox-Item (Knackpunkt)
    Showmessage('');
  end;
end;

Das Problem kann nicht so schwer zu beheben sein, schätze ich, aber ich komm nicht drauf, was man da machen könnte

Liebe Grüße
Aike