Høyre-klikke i ListBox?

Hvordan kan man høyre-klikke i en ListBox, og så merke den item som musemarkøren er over, derretter skal en PopupMenu poppe opp?

DiZpel

Kode 

procedure TForm1.ListBox1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
p : tpoint;
begin
//Er det højre museknap
if button = mbRight then
 begin
  //Marker item
  ListBox1.Selected[ listbox1.ItemAtPos( point( x , y ) , true ) ] := true;
  //Find den absolutte position af musen
  getCursorpos( p );
  //Vis popupmenuen
  PopupMenu1.Popup( p.x , p.y );
 end;
end;

Kode 

procedure TForm1.ListBox1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
p : tpoint;
index : integer;
begin
//Er det højre museknap
if button = mbRight then
 begin
  //Er der en item
  index := listbox1.ItemAtPos( point( x , y ) , true );
  if index > -1 then
  begin
   //Marker item
   ListBox1.Selected[ listbox1.ItemAtPos( point( x , y ) , true ) ] := true;
   //Find den absolutte position af musen
   getCursorpos( p );
   //Vis popupmenuen
   PopupMenu1.Popup( p.x , p.y );
  end;
 end;
end;