Berechnung von quadratischen gleichungen mit 3 unbekannten

[mola]

Hallo
ICh soll ein Programm schreiben, dass drei quadratische gleichungen mit drei unbekannten löst und das mit den Sarrusverfahren. Habe jetzt ein Programm geschrieben aber nachdem ich auf berechnen drücke, setzt es alle werte auf 0. Kann mir vieleicht jemand helfen und sagen woran es liegen könnte?
Danke

Code:

var a11,a12,a13,b1,a21,a22,a23,b2,a31,a32,a33,b3,delta,
 deltax1,deltax2,
deltax3,x1,x2,x3: real;
begin
edit1.Text:= FloatToStr(a11);
edit2.Text:= FloatToStr(a12);
edit3.Text:=FloatToStr(a13);
edit4.Text:= FloatToStr(b1);
edit5.Text:= FloatToStr(a21);
edit6.Text:= FloatToStr(a22);
edit7.Text:= FloatToStr(a23);
edit8.Text:= FloatToStr(b2);
edit9.Text:= FloatToStr(a31);
edit10.Text:= FloatToStr(a32);
edit11.Text:= FloatToStr(a33);
edit12.Text:= FloatToStr (b3);
edit13.Text:=FloatToStr (delta);
edit14.Text:=FloatToStr (deltax1);
edit15.Text:=FloatToStr (deltax2);
edit16.Text:=FloatToStr (deltax3);
edit17.Text:=FloatToStr (x1);
edit18.Text:=FloatToStr(x2);
edit19.Text:=FloatToStr (x3);

delta:=(a11*a22*a33)+(a12*a23*a31)+(a13*a21*a32)-
(a31*a22*a13)-(a32*a23*a11)-(a33*a21*a12);

deltax1:= (b1*a22*a33)+(a12*a23*b3)+(a13*b2*a32)-
(b3*a22*a13)-(a32*a23*b1)-(a33*b2*a12);

deltax2:= (a11*b2*a33)+(b1*a23*a31)+(a13*a21*b3)-
(a31*b2*a13)-(b3*a23*a11)-(a33*a21*b1);

deltax3:=(a11*a22*b3)+(a12*b2*a31)+(b1*a21*a32)-
(a31*a22*b1)-(a32*b2*a11)-(b3*a21*a12);

x1:= deltax1/delta;
x2:= deltax2/delta;
x3:=deltax3/delta;

x1:= StrToFloat (edit17.text);
x2:= StrToFloat  (edit18.text);
x3:=StrToFloat  (edit19.text);

end;