Delphi将jpg图片转换成bmp显示并传送给fastreport使用

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  bm:TBitmap;
  jpg:TJPEGImage;
  ms:TMemoryStream;
var
  s:string;
begin
  if self.OpenDialog1.Execute then
  begin
    s:=self.OpenDialog1.FileName;
    jpg:=TJPEGImage.Create;
    jpg.LoadFromFile(s);
    bm:=TBitmap.Create;
    bm.Assign(jpg);
    self.Image1.Picture.Bitmap:=bm;
    jpg.Free;
    bm.Free;
  end;
end;