procedure TForm1.Button2Click(Sender: TObject);vari:Integer;s:string;begin for i:=0 to ListBox1.Items.Count-1 do if ListBox1.Selected[i] then s:=s+ListBox1.Items[i]+#13#10; showmessage(s);end;