Per Rechtsklick Eintrag markieren oder verarbeiten

[Moombas]

Hallo zusammen,

ich habe eine (wahrscheinlich) kurze Frage aber ich komme aktuell nicht auf eine Lösung.
Problem:
Ich möchte per Rechtsklick in eine TListBox den Eintrag, auf den ich geklickt habe verarbeiten oder markieren (und dann den markierten Eintrag verarbeiten).

Den Rechtsklick "abzufangen" ist ja kein Problem:

Delphi-Quellcode:

procedure ListBoxMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if (ssRight in Shift) and (ListBox.itemindex <> -1) then
  begin
       
  end;
end;

Allerdings wie bekomme ich den Eintrag auf den man Rechtsgeklickt hat?

[TiGü]

Delphi-Quellcode:

procedure TForm1.ListBoxMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  LItemPosition: TPoint;
  LItemIndex: Integer;
begin
  if (ssRight in Shift) and (ListBox.ItemIndex <> -1) then
  begin
    LItemPosition := TPoint.Create(X, Y);
    LItemIndex := ListBox.ItemAtPos(LItemPosition, True);
    if LItemIndex > -1 then
    begin
      ShowMessage('Bin da: ' + ListBox.Items[LItemIndex]);
    end;
  end;
end;

[Moombas]

Danke Ich wusste es ist einfach und ich kannte es einfach nicht.