var
  J: TJpegImage;
  B: TBitmap;
begin
  J := TJpegImage.Create;
  J.LoadFromFile('MonImage.jpg');
  B := TBitmap.Create;
  B.Assign(J);
  B.SaveToFile('MonImageBMP.bmp');
  B.Free;
  J.Free;
end;