Работа с Multiselect в Tlistbox

[TSilver]

Дорогие форумчане помогите решить вот такую задачу.
Есть 2 listbox'а и включена функция multiselect нужно по нажатию кнопки переносить все выделенные строки из одного listbox'а в другой, причем строки которые были выделены в первом listbox'е должны будут удаляться)

[blackstersl]

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:= 0 to listbox1.SelCount - 1 do
begin
listbox2.Items.Add(listbox1.Items.Strings[i]);
listbox1.Items.Delete(i);
end;
end;

[TSilver]

К огромному сожалению не работает данный код так как нужно(((

[spamer]

Вот что то такое:

procedure TForm1.Button1Click(Sender: TObject);
var
 i, i1: integer;
begin
 for i:=0 to listbox1.Items.Count-1 do
  begin
   if ListBox1.Selected[i] then
    begin
     ListBox2.Items.Add(ListBox1.Items.Strings[i]);
    end;
  end;
 i:=ListBox1.Items.Count-1;
 i1:=0;
 while i1<=i do
  begin
   if ListBox1.Selected[i1] then
    begin
     ListBox1.Items.Delete(i1);
     i:=listBox1.Items.Count-1;
     i1:=0;
     continue;
    end;
   inc(i1);
  end;
end;

[TSilver]

А вот за это спасибо уже))))
Еще есть такой вопрос, есть теже два listbox'а, но уже требуется указать строки которые встречаються и там и там))

[Terran]

Еще есть такой вопрос, есть теже два listbox'а, но уже требуется указать строки которые встречаються и там и там))

Var
I,A: Integer;
Procedure TForm1.Button1Click(Sender: TObject);
Begin
For I:=0 To ListBox1.Count-1 Do
Begin
If (ListBox1.Items.Strings[I]) = (ListBox2.Items.Strings[A]) Then
Begin
ShowMessage(ListBox1.Items.Strings[I]);
End
End;
If A <= ListBox2.Items.Count-2 Then
Begin
A:=A+1;
Button1.Click;
End
Else
Begin
A:=0;
End;
End;
Procedure TForm1.FormCreate(Sender: TObject);
Begin
A:=0;
End;

Если понадобится, то оптимизируйте.

[TSilver]

Вышеуказанный код не подходит.
Нужно чтобы например в двух листбоксах были марки автомобилей и по нажатию кнопки выделялись одинаковые модели)

[kinderproc]

procedure TForm1.Button1Click(Sender: TObject);
var
  i, j: integer;
begin
  for i := 0 to ListBox1.Count -1 do
    for j := 0 to ListBox2.Count - 1 do
    begin
      if ListBox1.Items[i] = ListBox2.Items[j] then
      begin
        ListBox1.Selected[i] := True;
        ListBox2.Selected[j] := True;
      end;
    end;
end;

У обоих ListBox-ов свойство Multiselect нужно установить в True.