Delphi Schleifen-Probleme

[Kegasetu]

Hallo Zusammen.
Ich bin gerade an einem Programm, aber kann meinen Fehler nicht finden.

Zu mir, ich bin absoluter Amateur und habe seit einigen Jahren nicht mehr programmiert.
Nun bin ich leider dazu gezwungen ein kleines Programm zu schreiben.

Im Grund ist es gar nicht so kompliziert. Es geht um Schleifen. Ich habe 5 verschiedene Werte welche eingegeben werden müssen. Dann wird gerechnet, solange bis die ausgerechneten Werte mit vordefinierten Werten übereinstimmen.

Hier der Code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

var ay, by, cy, l1, l2, f1, lf1, f2, lf2, lges, suche, t: extended;

begin

ay:= 0;
by:= 0;
cy:= 0;
l1:= 0.1;
l2:= 0.1;

f1:= strtofloat(edit1.Text);
f2:= strtofloat(edit2.Text);
lf1:= strtofloat(edit3.Text);
lf2:= strtofloat(edit4.Text);
lges:= strtofloat(edit5.Text);

suche:= (f1+f2)/3;

while l1<>lges  do
begin
  while l2<>lges do
  begin
    ay:= f1*(1-(lf1*2/l1));
    by:= -f1 +(f1*lf1*2/l1)+f2+(f1*lf1-f2*(lf2-l1))/l2+f1 ;
    cy:= -1*(f1*(l1+2*l2)*lf1-f2*l1*(l1-l2-lf2))/(l1*l2);
    label4.caption:= floattostr(t);
    t:= t+1;
    if (ay <= 1.05 * suche) or (ay >= 1.05 * suche)  then
     if (by <= 1.05 * suche) or (by >= 1.05 * suche)  then
      if (by <= 1.05 * suche) or (by >= 1.05 * suche)  then
      begin
        label1.Caption:= floattostr(ay);
        label2.Caption:= floattostr(by);
        label3.Caption:= floattostr(cy);
        end;


    l2:= l2 + 0.1;
  end;
  l1:= l1 + 0.1;
  l2:= l1 + 0.1;
end;












end;



end.

Hier meine Testwerte:
f1 = 500
f2 = 200
lf1 = 2
lf2 = 5
lges = 10


Leider hängt sich das Programm sofort auf. Label 4 soll mir zeigen, wie oft die Schleife durchlaufen wurde, aber auch hier passiert nicht. Hat jemand eine Lösung?

Vielen Dank für Unterstützung!