Uses Jpeg;

procedure TForm1.Button1Click(Sender: TObject);
var ImageJPEG : TJPEGImage;
bitmapa : TBitmap;
begin
bitmapa := TBitmap.Create; //Crée un bitmap
bitmapa.LoadFromFile('c:\test.bmp'); //Ouvre le fichier dans le bitmap
ImageJPEG := TJPEGImage.Create; //Crée un jpeg
ImageJPEG.CompressionQuality:=75; //Compression du jpeg
ImageJPEG.Assign(Bitmapa); //Le jpeg contient l'image
ImageJPEG.SaveToFile('c:\test.jpg'); //Enregistre le fichier jpeg
ImageJPEG.Free; //Libère le jpeg
bitmapa.Free; //Libère le bitmap
end;