Como grabar el contenido de Timage a un archivo jpg

[Bertifox2008]

Algo paso con mi respuesta anterior, se elimino junto con la ayuda que recibi, pero de todas formas gracias a todos.

Resolvi el problema de la siguiente forma, para grabarlo como jpg:

Código Delphi [-]procedure TFrm_PantallaPrincipal.TwainTwainAcquire(Sender: TObject;
const Index: Integer; Image: TBitmap; var Cancel: Boolean);
var
Bitmap: TBitmap; jpeg: TJPEGImage;
begin
BitBtnGrabar.Enabled:=True;
Bitmap := TBitmap.Create;
Bitmap.Assign(Image);
jpeg := TJPEGImage.Create;
jpeg.Assign(Bitmap);
jpeg.CompressionQuality := 100;
sPathFoto:='C:\Fotos\Foto'+Trim(EditRut.Text)+'.jpg';
jpeg.SaveToFile(sPathFoto);
ImageFoto.Picture.Assign(jpeg);
jpeg.Destroy;
Bitmap.Destroy;

Cancel := TRUE;
end;

[Bertifox2008]

Disculpas algo paso con resaltar sintaxis:


Código Delphi [-]
procedure TFrm_PantallaPrincipal.TwainTwainAcquire(Sender: TObject;
const Index: Integer; Image: TBitmap; var Cancel: Boolean);
var
Bitmap: TBitmap; jpeg: TJPEGImage;
begin
BitBtnGrabar.Enabled:=True;
Bitmap := TBitmap.Create;
Bitmap.Assign(Image);
jpeg := TJPEGImage.Create;
jpeg.Assign(Bitmap);
jpeg.CompressionQuality := 100;
sPathFoto:='C:\Fotos\Foto'+Trim(EditRut.Text)+'.jpg';
jpeg.SaveToFile(sPathFoto);
ImageFoto.Picture.Assign(jpeg);
jpeg.Destroy;
Bitmap.Destroy;
Cancel := TRUE;
end;