Esta es una sencilla funcion que convierte un archivo
Bmp a otro Jpg,
NOTA: Ańadir antes, en la uses, "jpeg".
Código Delphi
[-]
Procedure BmpToJpg;
var
Jpg:TjpegImage;
Bmp:Tbitmap;
begin
Jpg:=TjpegImage.Create;
Bmp:=TbitMap.Create;
Try
Bmp.LoadFromFile('MiBmp.bmp');
Jpg.Assign(Bmp);
Jpg.CompressionQuality:=50; Jpg.Compress;
Jpg.SaveToFile('MiJpg.jpg');
Finally
Jpg.Free;
bmp.free;
end;
end;