[[cHackAll]]

Corrigeme si me equivoco; estas intentando realizar una converción entre formatos de archivos de imagen BMP->JPG;

Código Delphi [-]
procedure TForm1.Image1Click(Sender: TObject);
var Bitmap: TBitmap; jpeg: TJPEGImage;
begin
 Bitmap := TBitmap.Create;
 Bitmap.LoadFromFile('c:\logo.bmp');
 jpeg := TJPEGImage.Create;
 jpeg.Assign(Bitmap);
 Bitmap.Destroy;
// jpeg.CompressionQuality := 66 // porcentaje
 jpeg.SaveToFile('c:\logo.jpg');
 jpeg.Destroy;
end;