//Проверка адекватности введенных чисел
IF i=0 then Begin


IF  (StrToFloat(Form5.LabeledEdit10.Text)=0)or
(StrToFloat(Form5.LabeledEdit10.Text)>StrToFloat(Form5.LabeledEdit11.Text))
then Begin i:=15;Form5.GroupBox1.Caption:='Недопустимое значение Vmin'; end;
IF  (StrToFloat(Form5.LabeledEdit11.Text)=0)or
(StrToFloat(Form5.LabeledEdit11.Text)>StrToFloat(Form5.LabeledEdit21.Text))
then Begin i:=16;Form5.GroupBox1.Caption:='Недопустимое значение Vном'; end;
IF  (StrToFloat(Form5.LabeledEdit21.Text)=0)
then Begin i:=17;Form5.GroupBox1.Caption:='Недопустимое значение Vmax'; end;

IF Form5.RadioGroup1.ItemIndex>0.5 then
Begin
IF StrToFloat(Form5.LabeledEdit18.Text)>0.99 then Begin i:=13;
Form5.GroupBox1.Caption:='Недопустиое значение степени ОП1';end;
IF (StrToFloat(FOrm5.LabeledEdit13.Text)=0)or
(StrToFloat(FOrm5.LabeledEdit13.Text)<StrToFloat(FOrm5.LabeledEdit11.Text))
then Begin i:=18;Form5.GroupBox1.Caption:='Недопустиое значение V ОП1-ПП';end;
If (StrToFloat(FOrm5.LabeledEdit12.Text)=0)or
(StrToFloat(FOrm5.LabeledEdit12.Text)<StrToFloat(FOrm5.LabeledEdit13.Text))or
(StrToFloat(Form5.LabeledEdit12.Text)>StrToFloat(Form5.LabeledEdit21.Text))
then Begin i:=19;Form5.GroupBox1.Caption:='Недопустиое значение V ПП-ОП1';end;
End;
IF Form5.RadioGroup1.ItemIndex=2 then
Begin
IF StrToFloat(Form5.LabeledEdit19.Text)>StrToFloat(Form5.LabeledEdit18.Text)
then Begin i:=14;Form5.GroupBox1.Caption:='Недопустиое значение степени ОП2';end;
IF (StrToFloat(Form5.LabeledEdit15.Text)=0)or
(StrToFloat(Form5.LabeledEdit15.Text)>StrToFloat(Form5.LabeledEdit14.Text))or
(StrToFloat(Form5.LabeledEdit15.Text)<StrToFloat(Form5.LabeledEdit13.Text))
then Begin i:=20;Form5.GroupBox1.Caption:='Недоспутимое значение V ОП2-ОП1';End;
If (StrToFloat(Form5.LabeledEdit14.Text)=0)or
(StrToFloat(Form5.LabeledEdit14.Text)>StrToFloat(Form5.LabeledEdit21.Text))or
(StrToFloat(Form5.LabeledEdit14.Text)<StrToFloat(Form5.LabeledEdit12.Text))
Then Begin i:=21;Form5.GroupBox1.Caption:='Недопустимое значение V ОП1-ОП2';end;
End;
end;