Правописание

 Edit26->Text=Add(CB4_5->Items->Strings[CB4_5->ItemIndex]);

 Edit26->Text= CB4_5->Items->Strings[CB4_5->ItemIndex];

string df=ADOQuery->SQL->Add("");

if(CB4_5->Items->Strings[CB4_5->ItemIndex])
{
      DM->ADOQEksk->SQL->Clear();
      DM->ADOQEksk->SQL->Add("SELECT Ekskavator.marka_ekskav, Ekskavator.[size grab], Ekskavator.working_plant_of_ekskav
FROM Ekskavator
WHERE (((Ekskavator.[size grab])<0.5) AND ((Ekskavator.working_plant_of_ekskav)='прямая лопата'));");
      DM->ADOQEksk->Open();
      DM->ADOQEksk->First();
      double hn=0.05;
      hn=Edit26->Text.ToDouble;
}

if(CB4_5->Items->Strings[CB4_5->ItemIndex])
{
      DM->ADOQEksk->Close();       
      DM->ADOQEksk->SQL->Clear();
      DM->ADOQEksk->SQL->Add("SELECT marka_ekskav, [size grab], working_plant_of_ekskav
FROM Ekskavator WHERE (([size grab] < 0.5) AND (working_plant_of_ekskav = 'прямая лопата'))");
      DM->ADOQEksk->Open();
      double hn=0.05;
      hn=Edit26->Text.ToDouble();
}

if(DM->ADOQEksk->SQL->Add("SELECT marka_ekskav, [size grab], working_plant_of_ekskav
FROM Ekskavator WHERE (([size grab] < 0.5) AND (working_plant_of_ekskav = 'прямая лопата'))"))
   {...}

       ksh=Edit9_5->Text.ToDouble();            //Объём ковша
       if(RB1->Checked==true){
          if(ksh<0.49)
            hn=0.05;
              else if(0.5<=ksh<1.49)
                hn=0.1;
                else if(1.5<=ksh<2.99)
                  hn=0.15;
                  else(3<=ksh<5)
                    hn=0.2;
       }
       else if(RB2->Checked==true){
           if(ksh<0.49)
              hn=0.1;
              else if(0.5<=ksh<0.79)
                hn=0.15;
                else if(0.8<=ksh<1.49)
                  hn=0.2;
                  else(1.5>=ksh)
                    hn=0;
       }
       Edit26_2->Text=hn;       //недобор грунта
       Vngr=b02*l05*hn;
       AnsiString sVngr=FormatFloat("0.000",Vngr);
       Lbl55_6->Caption="Объём недобора грунта:" + sVngr + "куб. м.";
}

Edit26_2->Text=FloatToStr(hn);