Příklad

používá dialog na otevření souboru s obrázkem – OpenPictureDialog, takže jej přidejte na formulář. Jak vidíte, pro jednoduchost je též nastaven napevno název výstupního souboru i jeho kvalita, takže si oba parametry nezapomeňte příslušným způsobem přizpůsobit.
A jak bude vypadat opačná konverze? Velmi podobně a pravděpodobně byste na ni přišli sami, ale pro úplnost zde máte příklad:
procedure JpegToBmp(Jpg: TJpegImage; PF: TPixelFormat; var Bmp: TBitmap);
begin
Bmp.Assign(Jpg);
Bmp.PixelFormat := PF;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
Bmp : TBitmap;
JPG : TJpegImage;
begin
if Form1.OpenPictureDialog1.Execute then
begin
Bmp := TBitmap.Create;
JPG := TJpegImage.Create;
Jpg.LoadFromFile(Form1.OpenPictureDialog1.FileName);
JpegToBmp(jpg, pf24bit, bmp);
Bmp.SaveToFile('vystup.bmp');
JPG.Free;
Bmp.Free;
end;
end;
Ukázku jsme si drobně vylepšili o možnost nastavení požadované barevné hloubky výsledného BMP souboru (viz druhý parametr funkce). V nápovědě naleznete výčet ostatních hodnot, kterých může tato proměnná nabývat, a u samotného typu TBitmap či TJpegImage najdete řadu dalších vlastností a parametrů k experimentování.