Untitled

var

 x:Integer;
 D,a,b,c,x1,x2:real;

begin
    try
a:=StrToFloat(Edit14.Text);
b:=StrToFloat(Edit15.Text);   // Из строки переводим в типа данных real
c:=StrToFloat(Edit16.Text);


 D:=sqr(b)-4*a*c;

    if D>=0    then
          begin

       x1:=( -b+sqrt(D) )/2*a;
       x2:=( -b-sqrt(D) )/2*a;
   if CheckBox2.checked=True then //если галочка стоит,то D отображается,иначе-нет.

             Edit17.Text:= 'x1='+FloatToStr(x1)+','+'x2='+FloatToStr(x2)+ ','+'D='+FloatToStr(D)

           else
            Edit17.Text:= 'x1='+FloatToStr(x1)+','+'x2='+FloatToStr(x2)


          end


          else

          Edit17.Text:= 'ошибка';

       except
  on EConvertError do
  begin
  ShowMessage('Введите данные'); //проверяем на заполненность ячейки
  exit;

end;
  end;
   end;