How to insert image into ListView using DynamicAppearance?

Question

Delphi

procedure TProjectManager.lvProjectsDblClick(Sender: TObject);
var
  enum: System.Generics.Collections.TEnumerator<TListViewItem>;
  Size: TSize;
begin
  if not Assigned(lvProjectItem) then
    exit;

//  enum := (Sender as TListView).Items.GetEnumerator;
//  while enum.MoveNext do
//  begin
//    enum.Current.Data['status'] := ''
//  end;

  lvProjectItem.Data['image_status'] := // Сюда хочу засунуть изображение


  CurrentProject := lvProjectItem.TagObject as TProject;

  INI.WriteInteger('CurrentProject', 'id', CurrentProject.id);
  INI.WriteString('CurrentProject', 'name', CurrentProject.name);
  INI.WriteString('CurrentProject', 'comment', CurrentProject.comment);
  INI.WriteString('CurrentProject', 'create_at', CurrentProject.create_at);
end;

Answer 1

Decision!

lvProjectItem.Data['image_status']:= TValue.From(ImageList.Bitmap(TSize.Create(32,32), 1));