image 控件加载bmp、JPG、GIF、PNG等图片的办法

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;