Brauche Hilfe Rechenprogramm mit while schleife

[Epytir]

So das Programm is fertig und funktioniert so wies soll tread kann geschlossen werden danke an alle

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
 edt1.Text     := '' ;
 edt2.Text     := '' ;
 mem1.Text     := '' ;
 mem1.ReadOnly := true ;
 btn1.Caption  := 'Start';
end;

procedure TForm1.btn1Click(Sender: TObject);
 var     Endbedingung,
         Eingabe,
         Ergebnis,
         Zaehler     :Real ;
begin
      try
        Eingabe := StrToInt(edt1.Text);
        Endbedingung := StrToFloat(edt2.Text);
      except
        MessageDlg('Fehlerhafte Eingabe',mtError,[mbOK],0);
      Exit;
end;
        Zaehler := 0 ;
        Ergebnis := 0 ;

while Ergebnis<Endbedingung do begin

        Zaehler := Zaehler+1 ;
           Ergebnis :=Ergebnis+(Eingabe/1/Zaehler) ;
               mem1.Lines.Add(FloattoStr(Zaehler) +'        '+ Floattostr(Ergebnis));

end;

end;

end.

Und wer nochma die Aufgabe haben will das Program soll
Eingabe z.B.10
Endbedingung 100


dann soll er solange rechnen bis Eingabe 100 ist

also
1.Ergebnis = Ergebnis+10/1/1
2.10 = 10+10/1/2
3.15 = 15+10/1/3
und so weiter soll der rechnen eben bis 100