Описание программы в C++

[Клавдия1]

Опишите пожалуйста программу, каждую функцию.

void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
{
char *str = "0123456789"; // задание строки допустимых элементов
if (((int)Key==8) || ((int)Key==13) || Key ==DecimalSeparator) return; // разрешение использовать BackSpace и Enter
if (!( AnsiStrScan( str, Key))) // проверка на соответствии вводимого элемента допустимым элементам приведенным в строке
Key = NULL; // если вводимый символ не обнаружен в строке допустимых элементов, значит он отсутствует
}
//---------------------------------------------------------------------------


void __fastcall TForm1::Button1Click(TObject *Sender)
{
   if (Edit1->Text.AnsiCompare("")==0||Edit2->Text.AnsiCompare("")==0||
   Edit3->Text.AnsiCompare("")==0||Edit4->Text.AnsiCompare("")==0)
   {
        ShowMessage("Необходимо заполнить все поля!");
        return;
    }
   double a, b, c, d;

   if (!TryStrToFloat(Edit1->Text,a)||!TryStrToFloat(Edit2->Text,b)||
   !TryStrToFloat(Edit3->Text,c)||!TryStrToFloat(Edit4->Text,d))
   {
        ShowMessage("Ошибка! Не удалось конвертировать числа!");
        return;
    }
   uravn.SetA(a);uravn.SetB(b); uravn.SetC(c);uravn.SetD(d);

   LabelLine1->Caption = "Уравнение №1:" + uravn.Show();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
   double x;
   if (!TryStrToFloat(Edit5->Text,x))
   {
        ShowMessage("Ошибка! Не удалось конвертировать числа!");
        return;
   }
   LabelRes->Caption = "Результат: при X = " + FloatToStr(x) + " Y = " + uravn.GetYByX(x);
}
//---------------------------------------------------------------------------


void __fastcall TForm1::Button2Click(TObject *Sender)
{
   if (Edit6->Text.AnsiCompare("")==0||Edit7->Text.AnsiCompare("")==0||
   Edit8->Text.AnsiCompare("")==0||Edit9->Text.AnsiCompare("")==0)
   {
        ShowMessage("Необходимо заполнить все поля!");
        return;
    }
   double a, b, c, d;

   if (!TryStrToFloat(Edit6->Text,a)||!TryStrToFloat(Edit7->Text,b)||
   !TryStrToFloat(Edit8->Text,c)||!TryStrToFloat(Edit8->Text,d))
   {
        ShowMessage("Ошибка! Не удалось конвертировать числа!");
        return;
    }
   uravn2.SetA(a);uravn2.SetB(b); uravn2.SetC(c);uravn2.SetD(d);

   LabelLine2->Caption = "Уравнение №2:" + uravn2.Show();

[p51x]

Тут же комментарии есть, а остальное стандартные для билдера функции есть везде - в гугле, справке, книжке...