1:

listbox2.items:=listbox1.items.gettext;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

VAR i : INTEGER;
       max_listbox : TListBox;
       min_listbox : TListBox;
begin
  ListBox3.Items.Clear;
  if ListBox1.Items.Count > ListBox2.Items.Count then
  begin
    max_listbox:=ListBox1;
    min_listbox:=ListBox2;
  end else
  begin
    max_listbox:=ListBox2;
    min_listbox:=ListBox1;
  end;
  i:=0;
  while i<min_listbox.Items.Count do
  begin
    ListBox3.Items.Append(ListBox1.Items[i]+'   '+ListBox2.Items[i]);
    inc(i);
  end;
  while i<max_listbox.Items.Count do
  begin
    ListBox3.Items.Append(max_listbox.Items[i]);
    inc(i);
  end;
end;