procedure TForm1.Button1Click(Sender: TObject);var oSizeF: TSizeF;beginoSizeF.cx:=10;//发现这个值小了会增加马赛克,D这是要做日本电影吗?oSizeF.cy:=10;Image1.Bitmap.Assign(ImageList1.Bitmap(oSizeF, StrToInt(Edit1.Text)));end;