Множественный выбор в ListBox

Следующая статья: DBGrid с цветными ячейками.

Данный пример выводит сообщение для каждого элемента ListBox, выбранного пользователем.

procedure TForm1.Button1Click(Sender: TObject);
var
Loop: Integer;
begin
  for Loop:=0 to ListBox1.Items.Count - 1 do
  begin
     if ListBox1.Selected[Loop] then ShowMessage(ListBox1.Items.Strings[Loop]);
  end;
end;

Примечание: Необходимо в Object Inspector для ListBox1 установить свойство MultiSelect в True.