为什么在一些情况下要用free，而不是用Destroy

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

delphi好久不用了，如果他经验不足的话是应该不知道的吧！