procedure Tfrmcbcx.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action := cafree;
end;procedure Tfrmcbcx.btnExitClick(Sender: TObject);
begin
close;
end;
begin
action := cafree;
end;procedure Tfrmcbcx.btnExitClick(Sender: TObject);
begin
close;
end;
begin
action := cafree;
end;procedure Tfrmcbcx.FormDesctory(Sender: TObject);
begin
form2:=nil;
end;