Asignar imágenes a ImageList en tiempo de ejecución

[ecfisa]

Hola newtron.

Probá de este modo:

Código Delphi [-]
{ Suponiendo que:
  ListView1.SmallImages:= ImageList1;
  ListView1.ViewStyle:= vsSmallIcon;
}
...
var
  JPEGImage: TJPEGImage;
  Bitmap: TBitmap;
begin
  ...
  JPEGImage:= TJPEGImage.Create;
  Bitmap:= TBitmap.Create;
  try
    JPEGImage.LoadFromStream(stream);
    Bitmap.Height:= JPEGImage.Height;
    Bitmap.Width:= JPEGImage.Width;
    Bitmap.Assign(JPEGImage);
    ImageList1.Add(Bitmap,nil);
    ListView1.Items.Add;
    ListView1.Items[ListView1.Items.Count-1].Caption := 'Imagen';
    ListView1.Items[ListView1.Items.Count-1].ImageIndex := 0;
  finally
    Bitmap.Free;
    JPEGImage.Free;
  end;
...

Saludos.