[dec]

Hola,

Con el siguiente código no me va mal para convertir un "BITMAP" en un "JPEG". Adáptalo como te sea menester, a ver si te sive de algo.

Código Delphi [-]
uses
  Jpeg;

procedure BitmapToJpeg(const
  origen, destino: string);
var
  bitmap: TBitmap;
  jpeg: TJPEGImage;
begin
  bitmap := TBitmap.Create;
  jpeg := TJPEGImage.Create;
  try
    bitmap.LoadFromFile(origen);
    jpeg.Assign(bitmap);
    jpeg.SaveToFile(destino);
  finally
    jpeg.Free;
    bitmap.Free;
  end;
end;