öm wieso nicht so ?

var
i:integer;
begin
for i := 0 to lv1.Items.Count -1 do
begin
memo1.Lines.Add(lv1.items[i].Caption +' : '+lv1.items[i].SubItems.Strings[0] + ' : '+lv1.items[i].SubItems.Strings[1]+ ' : '+lv1.items[i].SubItems.Strings[2]);
end;
bisschen alt der thread aber fals einer mal das gleiche prob hat