fechar 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