Fechamento form

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