tilføj JPEG eller JPEGS til uses (Kan ikke huske hvilken.)
var
MyJPEG: TJPEG;
MyBitmap: TBitmap;
begin
MyJPEG := TJPEG.Create;
MyJPEG.LoadFromFile('c:\minjpg.jpg');
MyBitmap.Width := MyJPEG.Width;
MyBitmap.Height := MyJPEG.Height;
MyBitmap.Canvas.Draw(0,0,MyJPEG);
MyBitmap.SaveToFile('minbitmap.bmp');
end;