[Misterhomer]

зачем так сложно????!!!!!!!!!!!!!!!!!!!!!
следуй примеру Konrad

Код:

a:= StrToFloat(Edit1.Text);
b:= StrToFloat(Edit2.Text);
c:= StrToFloat(Edit3.Text);

if (a>=0) and (b>=0) and (c>=0) then
begin
d:= sqr(b)- 4*a*c;

if d>=0 then
begin
x1:= (-b + sqrt(d))/(2*a);
x2:= (-b - sqrt(d))/(2*a);
Label4.Caption := 'x1='+ FloatToStrF(x1,ffFixed,6,2)+#13+
'x2=' + FloatToStrF(x2,ffFixed,6,2);
end;
end;