Harmonische Reihe - "Ungültige Gleitkommaoperation"??

[jraxxo]

Ich hab jetzt die Auswertung in die Schleife verlegt, aber jetzt sagt er bei jeder Zahl dass sie nicht erreicht werden konnte

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var X,eingabe :extended;
    I :integer;
    fertig:boolean;
begin
 x:=0;
 eingabe:=StrtoFloat(Edit1.Text);
 for I := 1 to 100000 do begin
  x:=x+(1/i);
  if x>eingabe then begin
   break;
   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;