Listview + RichEdit + Petla

Cel: Dodanie wszystkich itemów i subitemów do RichEdit
Problem: Pętla nie działa. Pewnie jestem już spiacy i musiałem zrobić jakiś błądJa to widze wten sposób :

var
Item, subitem : string;
item_ile : integer;
begin
item_ile := 1;
Item := Listview1.Items[item_ile].Caption;

while item = '' do begin
Item := Listview1.Items[item_ile].Caption;
subitem := listview1.Items[item_ile].SubItems[0];
Richedit1.Lines.Add(item + subitem);
item_ile:= 1 + item_ile;
end;
end;

Zmień item= na item<> . Wtedy pętla powinna działać. I czy indeksowanie itemów zaczyna się od 1, czy od 0 ? Sam nie wiem, ale wydaje mi się, że powinno od 0.

Dodatkowo wywal
Item := Listview1.Items[item_ile].Caption;
przed samego end'a.

for i := 0 to ListView1.Items.Count -1 do
RichEdit1.Lines.Add(ListView1.Items[i].Caption + ' ' + ListView1.Items[i].SubItems[0]);