ListBox & PopUp: ausgewähltes Item feststellen

[Sharky]

Hai Tubos,
versuche es mal so:

Delphi-Quellcode:

procedure TForm1.ListBox1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  point : TPoint;
  lbpos : TPoint;
begin
  if Button In [mbRight] then
  begin
    point.X := x;
    point.Y := y;
    ListBox1.ItemIndex := ListBox1.ItemAtPos(point,true);
    lbpos.X := Listbox1.Left + self.Left + x;
    lbpos.y := Listbox1.top + self.top + y;
    PopupMenu1.Popup(lbpos.x,lbpos.y);
  end;
end;

Dabei darf das Popup-Menü aber nicht mit der Listbox verknüpft sein.