Delphi 向列TShellListview添加值

我在Lazarus有一个TShellListView，里面有一些图片。我还制作了两列，我想在其中存储一些关于图片的数据。但我不知道如何将数据插入我创建的列（列1和列2）

代码：

ShelLListView1.Column[1].Visible:=false;
 ShelLListView1.Column[2].Visible:=false;

 ShellListView1.Columns.Add;
 ShellListView1.Column[ShellListView1.ColumnCount - 1].Caption:='Column_1';
 ShellListView1.Columns.Add;
 ShellListView1.Column[ShellListView1.ColumnCount - 1].Caption:='Column_2';


 ShelLListView1.Column[0].AutoSize:=true;
 ShellListView1.Root:=folderPath;

有关TShellListView的图像：

---

尽管创建类的子类会更好，但在任何情况下，您都需要将子项添加到此列表视图：

var
  I: Integer;
begin
  ...
  for I := 0 to ShellListView1.Items.Count - 1 do
  begin
    ShellListView1.Items[I].SubItems.Add('Column 1, Item: ' + IntToStr(I));
    ShellListView1.Items[I].SubItems.Add('Column 2, Item: ' + IntToStr(I));
  end;
end;