How to assign an image to a ListView Item?

How to assign an Image to a ListView Item? I want to put an image according to the status of the process. Initially only getting statusbar with external components, but I can not use external. Then I will use an Image according to the status will change the color, because rectangle I could not too. This is what I'm trying to do:

var
  listStatusExame           : TList<TImage>;
  txtStatusExame            : TListItemImage;
begin
  listStatusExame           := TList<TImage>.Create;

  listview1.BeginUpdate;

  for I := 0 to (listview1.Items.Count - 1) do
  begin
    txtStatusExame := TListItemImage(lvwAtendimentos.Items[i].Objects.FindDrawable
      ('status_img'));
    listStatusExame.add(Image1);
    txtStatusExame.ImageSource.ImageList := ImageList1;
  end;
end.

If anyone knows how to add a rectangle to a ListView Item, it would be even better, please.