为什么对象--------无法正常销毁?


下面代码测试就没啥问题

var
    bit:TBitmap;
    r:TRect;
begin
   DoubleBuffered:=True;
     try
        //建立图像
        bit:=TBitmap.Create;
        bit.Width:=Image2.Width;
        bit.Height:=Image2.Height;
        //绘图
        Randomize;
        with bit.Canvas do
        begin
         // 用随机颜色在随机位置填充一个矩形
          Brush.Color:= RGB(Random(255),Random(255),Random(255));
          r:= Rect(Random(bit.Width),Random(bit.Height),bit.Width, bit.Height);
          FillRect(r);
        end;
         Image2.Picture.Assign(bit);
      finally
        FreeAndNil(bit);
      end;
end;