您请看这段代码（关于TStringGrid中的Objects的释放）

[ttxm]

你在窗体上放一个stringGrid1，再放两个按钮button1 和button2

两个button中的代码如下：
procedure Tform1.Button1Click(Sender: TObject);
var
aObj : TObject;
begin
inherited;
aObj := TObject.Create;

stringGrid1.Objects[0,0] := aObj;
end;

procedure Tform2.Button2Click(Sender: TObject);
begin
inherited;
stringGrid1.Objects[0,0].Free;

end;


你如果不点button1,无论点多少次button2都不会出错；

但是如果你点了button1,那么连着点两次button2就会出错，除非你再点一下button1

这到底是怎么回事？