FMX.Graphics.TBitmapでjpgファイルに保存するときに品質指定する方法は

SaveToFileの第2引数にTBitmapCodecSaveParams型で品質を指定します。

procedure TForm1.Button1Click(Sender: TObject);
var bmp:FMX.Graphics.TBitmap;
  SaveParam:TBitmapCodecSaveParams;
begin
  bmp:=TBitmap.Create;
  try
    bmp.Width:=20;
    bmp.Height:=20;
    bmp.Canvas.BeginScene();
    bmp.Canvas.Fill.Color:=TAlphaColorRec.White;
    bmp.Canvas.FillRect( RectF(0,0,bmp.Width,bmp.Height),0,0,[],1 );
    bmp.Canvas.Stroke.Color:=TAlphaColorRec.Red;
    bmp.Canvas.DrawLine(PointF(0,0),PointF(bmp.Width,bmp.Height),1);
    bmp.Canvas.EndScene;

    SaveParam.Quality:=20; //品質20を指定
    bmp.SaveToFile('a.jpg', @SaveParam);
  finally
    bmp.Free;
  end;
end;