Delphi,компонента ListBox

[spectrum988]

У меня есть два ListBox'a,мне нужно переместить все элементы с одного ListBox'a1 в ListBox'a2 как мне это можно сделать ?

[Аватар]

ListBox2.Items.Assign(ListBox1.Items);

[spectrum988]

Спасибо большое,помогло.Как правильно понять,что означает Assign
(это свойство) ?

[spectrum988]

А если я бы хотел сделать выбор например одного и переместить туда или несколько,как бы выглядило присваивание(нашел ответ на свой вопрос),может кому либо пригодиться.

ListBox2.Items.Add(ListBox1.Items.Strings[ListBox1.ItemIndex]);
ListBox1.Items.Delete(ListBox1.ItemIndex);

[spectrum988]

Подскажите пожалуйста,что не то в коде:

var i,n:integer;
begin
n:=ListBox1.Items.Count;
for i:=0 to n do
if ListBox1.Selected[i] then
begin
ListBox2.Items.Add(ListBox1.Items.Strings[i]);
ListBox1.Items.Delete(ListBox1.ItemIndex);
n:=n-1;
end;
Edit1.Text:=IntToStr(ListBox1.Items.Count);
Edit2.Text:= IntToStr(ListBox2.Items.Count);
end;

Код должен делать перемещение строк(несколько или одну) из одного ListBoxa в другой.Свойство MultiSelect=true;