procedure FreeAndNil2(var Obj); inline;
begin
  TObject(Obj).Free;
  Pointer(Obj) := nil;
end;

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

procedure TForm1.FormCreate(Sender: TObject);
var
  t: TForm;
begin
  t := TForm.Create(nil);
  FreeAndNil(t);
  t := TForm.Create(nil);
  FreeAndNil2(t);
end;

Unit1.pas.44: t := TForm.Create(nil);
005FD16C 33C9             xor ecx,ecx
005FD16E B201             mov dl,$01
005FD170 A194025E00       mov eax,[$005e0294]
005FD175 E8AAACFEFF       call TCustomForm.Create
005FD17A 8945FC           mov [ebp-$04],eax
Unit1.pas.45: FreeAndNil(t);
005FD17D 8B45FC           mov eax,[ebp-$04]
005FD180 33D2             xor edx,edx
005FD182 8955FC           mov [ebp-$04],edx
005FD185 E8E2ACE0FF       call TObject.Free


Unit1.pas.46: t := TForm.Create(nil);
005FD18A 33C9             xor ecx,ecx
005FD18C B201             mov dl,$01
005FD18E A194025E00       mov eax,[$005e0294]
005FD193 E88CACFEFF       call TCustomForm.Create
005FD198 8945FC           mov [ebp-$04],eax
Unit1.pas.47: FreeAndNil2(t);
005FD19B 8B45FC           mov eax,[ebp-$04]
005FD19E E8C9ACE0FF       call TObject.Free
005FD1A3 33C0             xor eax,eax
005FD1A5 8945FC           mov [ebp-$04],eax
Unit1.pas.48: end;

procedure FreeAndNil2(var Obj); inline;
begin
  TObject(Obj).Free;
  Pointer(Obj) := nil;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  t: TForm;

  errStr: string;
begin
  errStr := '';
  Try
    t := TForm.Create(nil);
    FreeAndNil(t);
    t.Show;
  except
    on E: Exception do
      errStr := E.ClassName + ' : ' + E.Message + #13 + #13;
  end;

  Try
    t := TForm.Create(nil);
    FreeAndNil2(t);
    t.Show;
  except
    on E: Exception do
      errStr := errStr + E.ClassName + ' : ' + E.Message + #13 + #13;
  end;

  Try
    t := TForm.Create(nil);
    t.Free;
    t.Show;
  except
    on E: Exception do
      errStr := errStr + E.ClassName + ' : ' + E.Message + #13 + #13;
  end;

  ShowMessage(errStr);
end;