ListBox的多选

一次将多个选择加入另外一个Listbox：
procedure TForm_Department_Staff.Button_AddClick(Sender: TObject);
var
Iitemno,Ino: Integer;
begin
Iitemno:=0;
with ListBox1 do
for Ino:=0 to Items.Count-1 do
begin
if Selected[Ino] then
begin
Iitemno:=Ino;
Break;
end;
end;
with ListBox1 do
begin
ListBox2.Items.Clear;
for Ino:=Iitemno to Iitemno+(ListBox1.SelCount-1) do
begin
ListBox2.Items.Add(Items[Ino]);
end;
end;
end;