[Karsh]

вот так можно узнать какие строки выделены:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  s: string;
begin
  for i:= 0 to ListBox1.Items.Count - 1 do
  begin
    if ListBox1.Selected[i] then s:= s + 'Выделена строка ' + IntToStr(i+1) + #13#10;
  end;
  ShowMessage(s);
end;