TMyObj=class
AName:string;
end;


var
myObj;
AObj:TObject;
begin
myObj:=TMyobj.Create;
AObj:=myObj;
FreeAndNil(AObj); <----如果这里释放的是TObject类型的，而不是TMyObj类型的对象，尽管真的释放掉了，检查myObj却不是nil。
//or: FreeAndNil(myObj); <----如果释放的是TMyObj类型的对象，则检查可以得到nil
if Assigned(myObj) then
begin
end;
end;