Интересный вопрос!

void __fastcall TDalnost_and_vichota::RaschetClick(TObject *Sender)
{
  const float g= 9.81;//Ускорение свовободного падения в метрах за секунду
  float fV, //Начальная скорость тела в метрах за секунду
        fAlfa, //Угол к горизонту вектора начальной скорости тела в градусах
        fAlfaRad,//Значение fAlfa в радианах
        fS,//Дальность полёта тела в метрах
        fH;//Высота
   try
        {
         fV= StrToFloat(V->Text);/*Преобразует числовую строку
         в значение с плавающей запятой*/
         fAlfa= StrToFloat(Alfa->Text);/*Преобразует числовую строку
         в значение с плавающей запятой*/
        }//try
   catch(const EConvertError &)
        {
         ShowMessage("V ODNO IZ POLEY VVEDENO NE CHISLOVOE ZNACHENIE.");
        }//catch
    if (fV>= 0 && fAlfa>= 0 && fAlfa<= 180)
         {
          //Преобразование fAlfa в fAlfaRad
          fAlfaRad= fAlfa*M_PI/180.0;
          fS= pow(fV,2.0)*sin(2*fAlfaRad)/g;//Применяем формулу
          S->Caption= FloatToStrF(fS, ffFixed, 10, 2);//Округление выводимого числа
          fH= pow((fV*sin(fAlfaRad)), 2.0)/(2*g);
          H->Caption= FloatToStrF(fH, ffFixed, 10, 2);
         }//if
    else
         {
          S->Caption= FloatToStrF(fS, ffFixed, 10, 2);
          ShowMessage("DLYA VIKHISLENIYA DALNOSTY VVEDENO NE CHOSLOVOE ZHACHENIE");
         }//else
}//RaschetClick

void __fastcall TDalnost_and_vichota::RaschetClick(TObject *Sender)
//...
ShowMessage("V ODNO IZ POLEY VVEDENO NE CHISLOVOE ZNACHENIE.");
// ...
ShowMessage("DLYA VIKHISLENIYA DALNOSTY VVEDENO NE CHOSLOVOE ZHACHENIE");