Delphi - SubItem en Listview

Hola yo ya no se como, EStoy aprendiendo a usar delphi pero tengo un problema para agregar subitem en un listview este codigo pongo.:
var c,integer;
begin
c := IntToStr(StrToInt(listview.items.count)+1); //aca me Marca un error //aparte se q esto deveria ser su primer balor '0' .
ListView.Items.Add.Caption :=(data);
ListView.Items.Item[c].SubItems.Add(data1);
ListView.Items.Item[c].SubItems.Add(data2);
diganme como ago esto de otra forma o de esta mejorada. porfa
necesito q a cada items (data) se le pongan los subitems (data1 y (data2)
y si entra otra data pase a la segunda fila pero tambien los data1 y 2 se agregen en esta fila.
GRACIAS
ojala se entienda
CHAO.

A no sabia usar el FOR I :=0 ............
NO SE MOLESTEN EN RESPONDER

A no sabia usar el FOR I :=0 ............
NO SE MOLESTEN EN RESPONDER gracias