Hola.
Creo que la segunda opción que te menciona
Casimiro es la más simple. Y si la conversión la haces desde la imágen capturada, además de simple te permitirá aprovechar algunos beneficios de un
TImage, por ejemplo
Streech.
Código Delphi
[-]
...
uses jpeg;
procedure SaveAsJPG(aImage: TImage; ImgName: string);
begin
with TJPEGImage.Create do
try
Assign(aImage.Picture.Bitmap);
finally
SaveToFile(ImgName);
Free;
end;
end;
// llamada ejemplo:
Código Delphi
[-]
procedure TForm1.btnSaveClick(Sender: TObject);
begin
SaveAsJPG(Image1, 'C:\IMAGENES\IMAGE1.JPG');
end;
Saludos.