Basta con decírselo a la variable que almacena el bitmap.
Ańade la línea en rojo al código anterior.
Código Delphi
[-]procedure TForm3.Button1Click(Sender: TObject);
var
NewBitmap: TBitmap;
MS1: TMemoryStream;
Surf: TBitmapSurface;
JpgQuality: TBitmapCodecSaveParams;
begin
NewBitmap := ImageFotoReg.bitmap;
MS1 := TMemoryStream.Create;
Surf := TBitmapSurface.Create;
try
MS1.Position := 0;
NewBitmap.Resize(NewBitmap.Width DIV 2, NewBitmap.Height DIV 2);
Surf.Assign(NewBitmap);
JpgQuality.Quality := 30;
if not TBitmapCodecManager.SaveToStream(MS1, Surf, '.jpg', @JpgQuality) then
raise EBitmapSavingFailed.Create('Error saving Bitmap to jpg');
MS1.SaveToFile('r:\out.jpg');
ImageFotoReg2.Bitmap.LoadFromFile('r:\OUT.jpg');
finally
MS1.Free;
Surf.Free;
end;
end;