Listview, DirectoryListBox i pętle

procedure TForm1.Button1Click(Sender: TObject);
var
 i,x:integer;
 Item: TListItem;
begin
  Item := Lista.Items.Add;
       for x:=0 to Lista.Items.Count -1 do begin
        Item.Caption := InTToStr(x);
         for i:=0 to DirectorylistBox1.Items.Count -1 do
    Item.SubItems.Add(DirectorylistBox1.Items.Strings[i]);
 end;
end;

Procedurka ta ma dodać do Listview wszystkie itemy z DirectoryListbox i od razu numerować itemy w Listview.
Niestety dodaje tylko pierwszą pozycję z DirectoryListbox i gdy klikam na Button to cały czas dodaje tą pierwszą pozycję, ale już numeruje odpowiednio. Nie wiem gdzie tu jest błąd aby dodało wszystkie pozycje z DirectoryListbox i ponumerowało.
Dodaje też np. litery napędów z Directorylistbox, co mi jest niepotrzebne (to własnie pierwsza pozycja).
Gdzie mam błąd w kodzie?

	
procedure TForm1.Button1Click(Sender: TObject);
var
 i,x:integer;
 Item: TListItem;
begin
 for x := 0 to Lista.Items.Count-1 do
   for i := 0 to DirectorylistBox1.Items.Count-1 do 
      begin
       Application.ProcessMessages;
       Item := Lista.Items.Add;        
       Item.Caption := InTToStr(x);       
       Item.SubItems.Add(DirectorylistBox1.Items.Strings[i]);
      end;
end;

Niestety nie działa, nic nie dodaje.
Kombinuję dalej.

var
 i: integer;
begin
  Lista.Items.BeginUpdate;
  try
    for i := 0 to (DirectorylistBox1.Items.Count -1) do
    begin
      with Lista.Items.Add do
      begin
        Caption := IntToStr(i);
        SubItems.Add(DirectorylistBox1.Items[i]); //na liscie musza byc przynajmniej dwie kolumny
      end;
    end
  finally
    Lista.Items.EndUpdate;
  end;

OK super dzięki :) Działa.
Tylko został jeszcze 1 problem.
Do listview dodaję itemy z DirectoryListBox i FileListBox.

Najpierw jak dodam itemy z Direct.... to numeruje normalnie:
1
2
3 itd.

Ale potem jak dodam następne itemy ale już FilelistBox to numery wyglądają już tak:
1
2
3
1
2
3
4
5 itd.

Próbowałem zrobić tak aby na końcu wymazywał całą kolumnę Caption i wpisywał prawidłowe numerowanie, ale coś nie wychodzi. :/