[ecfisa]

Hola.

No entiendo bién la dificultad pero creo entender que deseas poder copiar bitmaps entre TImage y TImageList. Fijate si estos ejemplos te son útiles para elaborar lo que buscas:

Código Delphi [-]
// Copia el bitmap determinado por el índice desde un TImageList a un TImage
procedure ImageListToImage(ImageList: TImageList; const Index: Integer;  Image: TImage );
begin
  if ( Index < 0 ) or ( Index > ImageList.Count ) then
    raise Exception.Create( 'Fuera de rango' );

  Image.Picture := nil;
  ImageList.GetBitmap( Index, Image.Picture.Bitmap );
end;

Código Delphi [-]
// Copia el bitmap contenido en un TImage a un determinado índice de un TImageList, 
// o lo agrega al final si el índice es mayor al último elemento.
procedure ImageToImageList(Image: TImage; ImageList: TImageList;  const Index: Integer);
begin
  if Index < 0 then
    raise Exception.Create( 'Fuera de rango' );

  if Index < ImageList.Count then
    ImageList.Replace( Index, Image.Picture.Bitmap, nil )
  else
    ImageList.Add( Image.Picture.Bitmap, nil );
end;

Saludos