void __fastcall TForm1::N13Click(TObject *Sender)
{
if(FIBTransaction->Active)FIBTransaction->Active=false;
    FIBDataSet->SelectSQL->Clear();
    AnsiString q;
q="select rdb$procedure_name \
  from rdb$procedures";
    FIBDataSet->SelectSQL->Add(q);
    FIBTransaction->Active = True;
    FIBDataSet->Active = True;
    DBGrid->Show();
    Form1->Caption = "Procedures";


}

void __fastcall TForm1::DBGridDblClick(TObject *Sender)
{
        TField* pField;
        pField = FIBDataSet->Fields->Fields[ 0 ];
        int z;
        AnsiString a,q,b;
        a = pField->AsString;
        b = Form1->Caption;
        if(b=="Tables")z= 1 ;
        if(b=="Procedures")z= 4 ;
       switch(z){
    case  1 :{
            if(FIBTransaction->Active)FIBTransaction->Active=false;
            FIBDataSet->SelectSQL->Clear();
            q="select *  from  "+a;
            FIBDataSet->SelectSQL->Add(q);
            FIBTransaction->Active = True;
            FIBDataSet->Active = True;
            DBGrid->Show();
            Form1->Caption = "";
    break;
            }
    case  4 :{
            if(FIBTransaction->Active)FIBTransaction->Active=false;
            FIBDataSet->SelectSQL->Clear();
            q=" select *  from rdb$procedures where\
            rdb$procedure_name = \""+a+"\"";
            FIBDataSet->SelectSQL->Add(q);
            FIBTransaction->Active = True;
            FIBDataSet->Active = True;
            DBGrid->Show();
            break;

           }

    default:{ MessageBox(NULL,"??? ???????????","??? ???????????",MB_OK); break; }
                 }

}