listbox : usuwanie np 5 wiersza, jak?

nie wiem jak z listboxa po na cisnieciu prawym klawiszem myszy na danej linijce tekstu , zrobic tak zeby wykasowac ta linijke a pozostale podsuna siie o jeden do gory . dzieki za pomoc:)

procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbRight then
ListBox1.Items.Delete(ListBox1.ItemIndex);
end;

warunek - item musi byc wpierw zaznaczony.

dzieki [hurra] [hurra] [hurra] [hurra] [hurra] [browar]