Explicación de fenomeno Tbitmap :S

[mrnovice]

Saludos nuevamente foreros, gracias una vez más por su contribución, tengo una duda sobre un fenomeno estoy utilizando TDelphiTwain

Código Delphi [-]
var jpeg:TJPEGImage;
begin
    try
      jpeg:=TjpegImage.Create;
      showmessage('C1');
      jpeg.LoadFromFile(carpeta+'\'+Archivo);
      showmessage('C2');
      ImageList.Add(TBitmap.Create);
      showmessage('C3');
      TBitmap(ImageList[ImageList.Count - 1]).Assign(jpeg);
      showmessage('C4');

cuando hago TBitmap(ImageList[ImageList.Count - 1]).Assign(jpeg);
se agarra 2MB de memoria, alguien sabe por qué sabiendo qué el Bitmap de donde lo agarro vale 916 KB, como puedo hacer que se le asigne 1 MB es posible, sin dañar el archivo

Lo olvidaba es ImageList es un TList