Is there a compiler switch or something to force all object variables' initial value to nil?

For example:
Code:
procedure Foo;
var
  x: TObject;
begin
  // Just making sure it's nil and I want to get rid of these checks
  x := nil;
  ....
  if Assigned(x) then
    FreeAndNil(x);
  ...
end;