ListView en modo virtual

[byfali]

Hola amigos, alguien sabe porque al rellenar el ListView en el evento ListView1Data como muestro a cuntinuacion me incrementa los numeros de una variable integer de dos en dos.?



var
Form16: TForm16;
i : integer;

implementation

procedure TForm16.FormCreate(Sender: TObject);
begin
ListView1.OwnerData:=True;
ListView1.Items.Count:=100;

procedure TForm16.ListView1Data(Sender: TObject; Item: TListItem);
begin

inc(i);
Item.Caption:=IntToStr(i);

end;