Fehler bei JPEG-Umwandlung

[Flips]

Also ich hab hier ein Bitmap mit 250mb und es geht
Naja probiers mal mit ner Pufferung übern Memorystream, vielleicht klappt das besser (weiß aber nicht, ob es überhaupt etwas bringt )

Delphi-Quellcode:

var ms: TMemoryStream;
bmp : TBitmap;
jpg : TJPEGImage;
//[...]    
ms := TMemoryStream.Create;
try
  ms.LoadFromFile('a.bmp');
  bmp := TBitmap.Create;
  try
    bmp.LoadFromStream(ms);
    try
       jpg := TJPEGImage.Create;
       jpg.Assign(bmp);
       jpg.SaveToFile('a.jpg');
      finally
        FreeAndNil(jpg);
      end;
    finally
      FreeAndNil(bmp);
    end;
  finally
    FreeAndNil(ms);
  end;