дыскриминант

{float a,b,c,x1,x2,d;
a=StrToFloat(Edit1->Text);
b=StrToFloat(Edit2->Text);
c=StrToFloat(Edit3->Text);
d=b*b-4*a*c;
x1=(-b+sqrt(d))/2*a;
Label8->Caption=x1;
x2=x1=(-b-sqrt(d))/2*a;
Label9->Caption=x2;
}

double a,b,c;
    a=Edit1->Text.ToDouble();
    b=Edit2->Text.ToDouble();
    c=Edit3->Text.ToDouble();
    double d=b*b-(4*a*c);
        if (d==0){double x1=-b/2*a;
        Label7->Caption="x="+String(x1);
        }
    if (d<0){
        Label7->Caption="Нет корней!!!";
        return;
    };
    double x1=(-b+sqrt(d))/(2*a);
    double x2=(-b-sqrt(d))/(2*a);
    Label7->Caption="x1="+String(x1)+";\r\n""x2="+String(x2)+";";
}

x2=x1=(-b-sqrt(d))/2*a;