请问怎么样把bmp格式图进行压缩(50分)

请问怎么样把bmp格式图进行压缩

压缩成JPEG格式！！！！！！
下面是源码！！！！！！！！
uses JPEG;
procedure Tf.Button1Click(Sender: TObject);
var jpg:TJPEGImage;bmp:TBitmap;
begin
jpg:=TJPEGImage.Create;
bmp:=TBitmap.Create;
bmp.LoadFromFile('C:/1.bmp');
jpg.Assign(bmp);
jpg.CompressionQuality:=100;
jpg.Compress;
jpg.SaveToFile('C:/1.jpg');
bmp.Free;
jpg.Free;
end;

//跟楼上的有点不同
uses JPEG;

procedure Tf.Button1Click(Sender: TObject);
var
jpg:TJPEGImage;
bmp:TBitmap;
begin
jpg:=TJPEGImage.Create;
bmp:=TBitmap.Create;
try
bmp.LoadFromFile('C:/1.bmp');
jpg.Assign(bmp);
jpg.CompressionQuality:=100;
// jpg.Compress;这句可省略
jpg.SaveToFile('C:/1.jpg');
finally
bmp.Free;
jpg.Free;
end;
end;

多人接受答案了。