Zeit bis vaerbraucht wird falsch berechnet

[Y-Fritz]

Hallo, ich hab ein kleines Problem.

und zwar möchte ich ein Programm, wo man eine Gesamtmenge eingibt und Delphi dan berechnet wie lange es reciht.

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject);
var s,p,s2,s3,oel:real;
    i:integer;
begin

s:=3;                           //Verbrauch je Monat
p:=0.025;                       // prozentuale Zunahme des Verbrauches
oel:=strtofloat(edit1.text);      // eingegebener Wert des Gesamtvorrates
i:=1;                           // i steht für die Monate wie lange der Vorrat reicht

repeat
s2:=s*p;
s3:=s2+s;
s:=s3;
i:=i+1;
until oel<s3;

edit3.Text:=floattostr(s);
edit2.Text:=inttostr(i);

end;

Mein Problem ist, das viel mehr Monate ausgegeben werden. Als es tatsächlich sind.

Bsp: 9,23 reicht in Wirklichkeit für ca 3 Monate
Aber das Programm gibt für 9,23 47 Monate aus

Weiß jemand woran das liegt?

Schonmal danke im Vorraus für eure Hilfe.