hola! necesito 1 codigo :P

[kbaby]

Diferencias que encuentro:

1-> En procedure yo tengo puesto: procedure TForm1.Button1Click(Sender: TObject);

2-> Modifique mi código y puse este:
VAR a,b,c:integer;
x,y:real;
begin
a := strtoint(Edit1.Text);
b := strtoint(Edit2.Text);
c := strtoint(Edit3.Text);
x:= (-b + (sqrt(sqr(b)-(4*a*c)))) / (2*a);
y:= (-b - (sqrt(sqr(b)-(4*a*c)))) / (2*a);
edit4.text:=floattostr(x);
edit5.text:=floattostr(y)


*Copiandome del tuyo :P*

Me saleeee ^^ xD Dios muchas gracias ^^

PD: Explicame eso del procedure plz !! ^^