Duvida sobre POO

TClasse.Free <-> FreeAndNil( TClasse ) ?

 MeuObjeto.Free; 

if MeuObjeto = nil then //<- aqui o teste era falso
  MeuObjeto.Create;  // se era falso nao entrava  

MeuObjeto.Metodo;   //<- aqui gerava um erro pois o "Free" nao tinha
                    // configurado o o Objeto com nil apenas tornou o 
                    // ponteiro inválido

TPai = class
//que tem o metodo:
Constructor Create( aParam: AlgumTipo );

TFilha = class( TPai )

constructor TFilha.Create ( aParam1, aParam2: OutroTipo );
begin
  inherited; // executa o constructor da classe Pai
  // ...
  // ...
end;

constructor TFilha.Create(aParam1, aParam2: OutroTipo);
begin
  inherited Create(AlgumTipo); // executa o constructor da classe Pai 
...
end;

type
  TDataBase = class
  private   
    FConnection: TADOConnection;
    FQryInsert: TADOQuery;
    FQryEdit: TADOQuery;
    FQrySearch: TADOQuery;
    ...
  public
    procedure Insert;
    procedure Edit; 
    procedure Search;  
  end;

constructor TDataBase.Create(AOwner: TComponent);
begin
  FConnection := TADOConnection.Create( nil );
  FQryInsert  := TADOQuery.Create( nil );
  FQryEdit    := TADOQuery.Create( nil );
  FQrySearch  := TADOQuery.Create( nil );
end;

destructor TDataBase.Destroy;
begin
  FConnection.Free;
  FQryInsert.Free;
  FQryEdit.Free;
  FQrySearch.Free;
  inherited;
end;

procedure TfrmDefault.FormCreate(Sender: TObject);
begin
  DB := TDataBase.Create( self );
end;

procedure TfrmDefault.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  DB.Free;
end;

function OpenConnection ( TADOConnection; ADataSource: String );
begin
  // criar o objeto de conexão
  FConnection := TADOConnection.Create( nil )
  try
    { aqui faz a abertura de conexao }
  finally
    FreeandNil( FConnection );
  end;
end;

procedure TDataBase.Search ( ATableName, AField, AParam: String );
begin
  // Cria objetos 
  FConnection := TADOConnection.Create( nil );
  FQrySearch  := TADOQuery.Create( nil );
  try
    OpenConnection( FConnection, FDataDource); // metodo para abertura da conexao
    { aqui faz o select, exibe os dados, etc }  
  finally
    FreeAndNil( FConnection  );
    FreeAndNil( FQrySearch   );
  end;
end;