Listboxzeile mit rechter Maustaste markieren?

[s-off]

Hallo,

Delphi-Quellcode:

Procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
   Shift: TShiftState; X, Y: Integer);
Var
   pt: TPoint;
   iItem: Integer;
Begin
   pt.X := X;
   pt.Y := Y;
   iItem := ListBox1.ItemAtPos((pt), True);
   If iItem <> -1 Then
      ListBox1.Selected[iItem] := True;
End;