BMP (nicht genügend speicher) JPG 4 MP

[Karstadt]

Delphi-Quellcode:

    Bild := TBitmap.Create;
    f_hauptfenster.JPG_nach_BMP(BildPfad,Bild);
    //mach was
    Bild.FreeImage;
    Bild.Free;


procedure Tf_hauptfenster.JPG_nach_BMP(Pfad_Jpg:String; Var Bmp:TBitmap );
var JPG:TJpegImage;
begin
   JPG := TJPEGImage.Create;
   JPG.LoadFromFile(Pfad_Jpg);
   bmp.width:= JPG.Width;
   bmp.Height:= JPG.Height;
   bmp.canvas.StretchDraw(Rect(0,0,bmp.width,bmp.height),JPG);
   JPG.assign(bmp);
   JPG.free;
end;

wenn ich große bilder in BMP umwandele bekomme ich immer Fehler. nicht genügend speicherplatz warum?