Du musst unter den Eigenschaften der Listbox "Multiselect" auf true setzen.
Dann kannst Du das z.B. so prüfen, welche Items selektiert sind:
Delphi-Quellcode:
procedure TForm50.Button1Click(Sender: TObject);
var
L, I: Integer;
begin
i := 0;
for L := 0 to listbox1.Items.Count-1 do begin
if listbox1.ListItems[L].IsSelected then begin
inc (i); // Do what you want here
end;
end;
ShowMessage (i.tostring + ' items are selected');
end;