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;