procedure TB.ShowFormCClick(Sender: TObject);
begin
  B.Enabled := false;
  C := TC.Create(Application);
end;

procedure TC.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
  B.Enabled := true;
end;