fechar form

[Hintz 0]

Tenho uma tela de Cadastro e outra de Consulta.
Quando vou consultar um Cliente, abro o form de Cliente. No envento onShow chamo o form de consulta. (através do botao cxBusca). Se o retorno do form de consulta 
for mrOk gostaria de fechar o form de cadastro, também com mrOk.
Exemplo:

procedure TfrmCliente.FormShow(Sender: TObject);
begin
     cxBuscaClick(Sender);
end;

procedure TfrmCliente.cxBuscaClick(Sender: TObject);
begin
   frmDemEconFinCon := TfrmDemEconFinCon.Create(self);

   if frmDemEconFinCon.ShowModal = mrOk then
     begin
        // fechar o frmCliente = mrOk
     end
   FreeAndNil(frmDemEconFinCon);
end;

Alguem pode me ajudar?
Utilizo o Delphi XE8.

Att. João Hintz