JPEG Qualität beim Speichern reduzieren

[AndreasSt]

Hallo,
Ich versuche ein JPEG mit reduzierter Qualität zu speichern (FMX).
Ausgangspunkt ist ein TBitmap.
Die Funktion saveTofile kann ja einen zweiten Parameter mit PBitmapCodecSaveParams erhalten.
Aber egal was ich versuche, die app stürzt unter android ab.

Variante1:

Code:

var
  Image:TBitmap;
  saveParams:tBitmapcodecSaveParams;

...
  saveParams.Quality:=50;
  Image.SaveToFile('filename.jpg,@saveParams);

Variante2:

Code:

var
  Image:TBitmap;
  Surf:TBitmapSurface;
  saveParams:tBitmapcodecSaveParams;

...
  Surf := TBitmapSurface.Create;
  Surf.assign(Image);
  saveParams.Quality:=50;
  TBitmapCodecManager.SaveToFile(sFileName,Surf,@saveParams);

Hat jemand so etwas schon einmal realisiert?