float TForm1::Diskriminant(float a, float b, float c)
{
    if(((b*b)-(4*a*c))>0)
        return((b*b)-(4*a*c));
        else {ShowMessage("Diskriminant s těmito kořeny je záporny, tudiž rovnice nemá řešení!");
              break;}
    if(((b*b)-(4*a*c))==0)
        return((b*b)-(4*a*c));
    else ShowMessage("Diskriminant s těmito kořeny je záporny, tudiž rovnice nemá řešení!");
}