请问我的这个将bmp图片转换为jpg格式的图片程序那里有错误，谢谢

Question

请问我的这个将bmp图片转换为jpg格式的图片程序那里有错误，new.jpg文件竟然是0字节文件，谢谢！如果这个程序不可以那么能给我个能够转换成功的程序吗?谢谢先了！function  bmp2jpeg(bmp:Tbitmap):Tjpegimage;
begin
result:=Tjpegimage.Create;
result.Assign(bmp);
result.Free;
end;procedure TForm1.Button1Click(Sender: TObject);
var
jpeg1:Tjpegimage;
bmp1:Tbitmap;
begin
 bmp1:=Tbitmap.Create;
 if clipboard.HasFormat(cf_picture) then
 begin
   bmp1.Assign(clipboard);
   jpeg1:=bmp2jpeg(bmp1);
   jpeg1.SaveToFile('c:\new.jpg');
 end;
end;

Answer 1

function  bmp2jpeg(bmp:Tbitmap):Tjpegimage;
begin
result:=Tjpegimage.Create;
result.Assign(bmp);
//result.Free;//去掉
end;