Harmonische Reihe - "Ungültige Gleitkommaoperation"??

[jraxxo]

Hallo zusammen,
ich habe ein Problem, und zwar programmiere ich gerade für einen Bekannten ein paar Sachen zusammen (wegen Iteration -> Harmonische Reihe, Bierschaumzerfall ...all solche simplen Dinge.)
Eigentlich könnte ich das auch alles... aber Delphi (ich benutze TurboDelphi 2006) ist ein bisschen bockig. Es geht um folgenden Code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var X,eingabe :extended;
    I :integer;
    fertig:boolean;
begin
 eingabe:=StrtoFloat(Edit1.Text);
 for I := 2 to 100000 do begin
  x:=x+(1/i);
  if x>eingabe then fertig:=true; {Überprüfung ob X größer als die Eingegebene Zahl ist}
 end;
 if fertig then begin Edit1.Text:=('Die eingabe wurde überschritten. Summationen:');
                      Edit2.Text:=(IntToStr(i));
 end else Edit1.Text:=('Die Zahl wurde nicht erreicht, da die Berechnung nach 100000 Summationen abgebrochen wurde.');
end;
end.

Eigentlich sehr einfach alles, aber er hört nicht auf mir, sobald ich den besagten Button betätige, eine Fehlermeldung auszugeben -"Ungültige Gleitkommaoperation".
Wahrscheinlich irgendwas ganz blödes was ich einfach übersehe.
Für Antworten bedanke ich mich im Voraus.

So Long

Joscha