{ 属性 }
Bitmap               : TBitmap;        //图像
BitmapMargins        : TBounds;        //边缘空白
WrapMode             : TImageWrapMode; //枚举; iwOriginal、iwFit、iwStretch、iwTile(原始、适合、拉伸、平铺)
DisableInterpolation : Boolean;        //是否使用(像素)插入算法

//Bitmap 属性测试
procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    Image1.Bitmap.LoadFromFile(OpenDialog1.FileName);
    ImageControl1.Bitmap.LoadFromFile(OpenDialog1.FileName);
    ImageViewer1.Bitmap.LoadFromFile(OpenDialog1.FileName);
  end;
end;

//WrapMode 属性测试
procedure TForm1.Button2Click(Sender: TObject);
begin
  Image1.WrapMode := TImageWrapMode(Tag); //iwOriginal, iwFit, iwStretch, iwTile
  Tag := Tag + 1;
  if Tag = 4 then Tag := 0;
end;

//BitmapMargins 属性测试
procedure TForm1.Button3Click(Sender: TObject);
begin
  with Image1.BitmapMargins do
  begin
    Left := Left + 10;
  end;
  Image1.Bitmap.BitmapChanged; //刷新
end;

//DisableInterpolation 属性测试
procedure TForm1.Button4Click(Sender: TObject);
begin
  Image1.DisableInterpolation := not Image1.DisableInterpolation;
  Image1.Bitmap.BitmapChanged;
end;