[DELPHI] Limiti nelle dimensioni (in pixel) per TBitmap

[enrico83]

Ciao a tutti,
devo caricare delle immagini e in genere non mi da problemi.
Ho provato a caricare un'immagine di dimensioni 9999 X 8199 e mi da errore EOutOfResources con messaggio memoria insufficiente per eseguire il comando quando assegno il corrispettivo valore alla proprietà Height dell'oggetto Bitmap che è un TBitmap.
Volevo chiedervi se anche a voi è capitato o se sapete perchè si comporta così.

Questo è il codice:

if ('.JPG'= lExt) or ('.JPEG'= lExt) then 
begin   
         tipoImmagine:= 'JPG';
         Stream := TMemoryStream.Create;
         try
            Stream.LoadFromFile(nomeFile);
            Stream.Seek(0, soFromBeginning);
            Jpg := TJPEGImage.Create;
            Jpg.LoadFromStream(Stream);
            try
               Bitmap.Width := JPG.Width;
               Bitmap.Height := JPG.Height;
               Bitmap.PixelFormat := pf24bit;
               Bitmap.Canvas.Draw(0,0, JPG);
            finally
               JPG.Free;
            end;
         finally
            Stream.Free;
         end;
end; 

Grazie in anticipo