[RebeccaGL]

Código Delphi [-]
procedure TForm_MOV.ListView1UpdateObjects(const Sender: TObject;
  const AItem: TListViewItem);
begin
  IB_Size.Create(32, 32);
  IB_Index := ImageList1.Source.IndexOf(AItem.Data['categoria_src'].ToString);
  AItem.Data['Icono'] := ImageList1.Bitmap(IB_Size, IB_Index);

  AItem.View.FindDrawable('PB_E').Name := 'PB_E';
  AItem.View.FindDrawable('PB_E').Align := TListItemAlign.Leading;
  AItem.View.FindDrawable('PB_E').VertAlign := TListItemAlign.Leading;
  AItem.View.FindDrawable('PB_E').Height := 5;
  AItem.View.FindDrawable('PB_E').Width := 150;
  AItem.View.FindDrawable('PB_E').PlaceOffset.X := 2;
  AItem.View.FindDrawable('PB_E').PlaceOffset.Y := 54;
  AItem.View.FindDrawable('PB_E').ScalingMode := TImageScalingMode.Stretch;

  IB_Factor := Round((150 / FdQuery_EMP.FieldByName('TT_Egresos').AsFloat) * AItem.Data['Egresos'].AsVariant);
  IB_Size.Create(IB_Factor, 5);
  AItem.Data['PB_E'] := ImageList1.Bitmap(IB_Size, 80);
end;

La propiedad ScalingMode no existe como podria ajustar la imagen a modo de Stretch.
AItem.Data['Egresos'].AsVariant no existe --> AItem.Data['Egresos'].AsFloat