ganz einfach:
Du lädst das Bild in ein TJPEGImage, dann machst du ein neues Bitmap-Objekt, per Assign bringst du das JPG-Bild hinein, abspeichern, fertig
Delphi-Quellcode:
uses JPEG;
procedure TForm1.Button1Click(Sender: TObject);
var
jpg: TJPEGImage;
bmp: TBitmap;
begin
jpg := TJPEGImage.Create;
bmp := TBitmap.Create;
try
jpg.LoadFromFile('J:\test.jpg');
bmp.Assign(jpg);
bmp.SaveToFile('J:\test.bmp');
finally
jpg.Free;
bmp.Free;
end;
end;