如何在Delphi中的TListView子项上绘制bmp /图标？

procedure TForm1.ListView1Data(Sender: TObject; Item: TListItem);
begin
  Item.ImageIndex := 0; // 这里是图标在图像列表中的索引
end;

procedure TForm1.ListView1Data(Sender: TObject; Item: TListItem);
begin
  Item.SubItems.Add(''); // 添加一个空字符串作为子项
  Item.SubItems.Objects[0] := TObject(0); // 将子项的对象设置为图标在图像列表中的索引
end;