用virtual listview的时候，为何调整列宽的时候数据都乱了？

请教一个问题，ListView好像有个问题啊，就是数据量很大的时候，采用Virtual技术会很快，采用Virtual技术一般都是如下这样子。
   但问题是，当调整列宽的时候现实的数据都乱了。
listview.ownerdata:=true;
I:Integer;procedure TForm1.ListView1Data(Sender: TObject; Item: TListItem);
begin
item.caption:='0'+IntToStr(I);
item.SubItems.Add('1'+IntToStr(I));
item.SubItems.Add('2'+IntToStr(I));
item.SubItems.Add('3'+IntToStr(I));
I:=I+1;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
ListView1.Columns.Clear;
ListView1.Columns.Add.Caption := 'A';
ListView1.Columns.Add.Caption := 'B';
ListView1.Columns.Add.Caption := 'C';
ListView1.Columns.Add.Caption := 'D';
ListView1.items.count:=5000;
end;