implementation
...
procedure TfrmChild.btnCerrarClick(Sender: TObject);
begin
Close; end;
procedure TfrmChild.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:= caFree;
end;
procedure TfrmChild.FormDestroy(Sender: TObject);
begin
frmChild:= nil;
end;