procedure FreeAndNil(var Obj);
var
Temp: TObject;
begin
Temp := TObject(Obj);
Pointer(Obj) := nil;
Temp.Free;
end;

我觉得检查一下是不是更好：
procedure FreeAndNil(var Obj);
var
Temp: TObject;
begin
if obj=nil then
exit; //或报错？哪个更好？
Temp := TObject(Obj);
Pointer(Obj) := nil;
Temp.Free; //free好像也会先检查temp是否为nil，所以前面没必要检查？
end;

procedure TObject.Free;
begin
if Self <> nil then
Destroy;
end;