Brauche Hilfe Rechenprogramm mit while schleife

[Epytir]

Hi Leute ich muss für die Schule ein Programm programmieren das eine zahl x+z/y rechnet also
erster durchgang z.B. 10+0/1
zweiter 10+10/2
dritter 10+15/3
...
aber bei mir wird die tahl immer kleiner und die schleife endet nie hier is mein Quelltext:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    btn1: TButton;
    edt1: TEdit;
    edt2: TEdit;
    mem1: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure btn1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

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

        Eingabe := StrToInt(edt1.Text);
        Endbedingung := StrToFloat(edt2.Text);
        Zaehler := 0 ;

while Ergebnis<Endbedingung do begin

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

end;

end;

end.

so hoffe ich ihr könnt mir helfen