// Проверка ввода всех необходимых цифр
try mmm:=StrToFloat(Form5.LabeledEdit10.Text);except i:=1;
Form5.GroupBox1.Caption:='Введите Vmin';end;// Нет v_min
try mmm:=StrToFloat(Form5.LabeledEdit11.Text);except i:=2;
Form5.GroupBox1.Caption:='Введите Vном'; end;//   v_nom
try mmm:=StrToFloat(Form5.LabeledEdit16.Text);except i:=3;
Form5.GroupBox1.Caption:='Введите Fном';end;//Fnom
try mmm:=StrToFloat(Form5.LabeledEdit21.Text);except
Form5.GroupBox1.Caption:='Введите Vmax';i:=4;end;//v_max
try mmm:=StrToFloat(Form5.LabeledEdit17.Text);except
Form5.GroupBox1.Caption:='Введите Iном'; i:=5; end;//Inom
try mmm:=StrToFloat(Form5.LabeledEdit20.Text);except i:=6;
Form5.GroupBox1.Caption:='Введите Gср'; end;//Gsr
IF Form5.RadioGroup1.ItemIndex>0.5 then Begin
try mmm:=StrToFloat(Form5.LabeledEdit18.Text);except
Form5.GroupBox1.Caption:='Введите Степень ОП1';i:=7;end;//alfa1
try mmm:=StrToFloat(Form5.LabeledEdit12.Text);except i:=8;
Form5.GroupBox1.Caption:='Введите V ПП-ОП1';end;//pp-op1
try mmm:=StrToFloat(Form5.LabeledEdit13.Text);except i:=9;
Form5.GroupBox1.Caption:='Введите V ОП1-ПП';end; //op1-pp
End;
IF Form5.RadioGroup1.ItemIndex=2 then Begin
try mmm:=StrToFloat(Form5.LabeledEdit19.Text);except i:=10;
Form5.GroupBox1.Caption:='Введите Степень ОП2';end;//alfa2
try mmm:=StrToFloat(Form5.LabeledEdit14.Text);except i:=11;
Form5.GroupBox1.Caption:='Введите V ОП1-ОП2';end;//op1-op2
try mmm:=StrToFloat(Form5.LabeledEdit15.Text);except i:=12;
Form5.GroupBox1.Caption:='Введите V ОП2-ОП1';end; //op2-op1
End;