Donde Esta EL Error??? (Sencillo, Nivel Principiante)

[Hitman014]

Bien tengo que hacer un "programa" que me de el resultado de la formula general, formula es esta:



entonces hize lo que crei y parece todo andar bien, pero cuando me fijo bien, el resultado que me da es el que pongo en B, pero negativo.

osea tengo que poner 3 valores (a,b,c) y en la barra de resultado me pone como respuesta lo mismo que puse en b, pero negativo (si pongo 4, me pone -4)

Donde puede estar el problema??

Este es el codigo que tengo:

var
a,b,c: integer;
x1,x2,x,d: real;
begin
a:= strtoint (edit1.text);
b:= strtoint (edit2.text);
c:= strtoint (edit3.text);
if a = 0 then
ShowMessage('Error!! No se puede Dividir entre 0')

else
x1:= sqrt (d);
x:= (b*b) - 4 *(a*c);
d:= x/2*(a);

x2:= -b + x1;
if x2 > 0 then
ShowMessage('Error!! Raiz Negativa Es Imaginario');

edit4.Text := floattostr (x2);

end;

espero puedan ayudarme