procedure TForm1.Button1Click(Sender: TObject);
var
jpg: TJPEGImage; // 要use Jpeg单元
png: tpngimage;
gif: tgifimage;
begin
jpg := TJPEGImage.Create;
jpg.LoadFromFile('...\pic.jpg');
Image1.Picture.Bitmap.Assign(jpg); //因为Image控件是基于Bitmap的,png/gif都可以这样加载
//或 Image1.Picture.Graphic = jpg; //TJPEGImage同TBitmap一样,是TGraphics的子类
//或 Image1.Picture.Assign(jpg); //实际上还是调用Graphic的Assign
//或 Image1.Picture.LoadFromFile('...\pic.jpg'); //实际上还是调用Graphic的LoadFromFile
jpg.Free;
end;