delphi listview添加第二行数据时出错！

procedure TForm1.BitBtn1Click(Sender: TObject);
var
listdata:Plistdata;
i:integer;
begin
//初使化listview的数据到tlist中
ListViewData := tlist.Create;

New(listdata);
listdata^.Caption := '';
listdata^.second := '第二列';
//listdata^.three := '第三列';
listdata^.picon := TIcon.Create;
ImageList1.GetIcon(1, listdata^.picon);

ListViewData.Add(listdata);
ListView1.Items.Add;

end;

没看到你添加多行

参考这个代码
https://blog.csdn.net/lenglengdeyu/article/details/2972804

其中' 是单引号