Debugge das doch mal, wo genau kommt diese Fehlermeldung?
Ich vermute mal da:
if x>eingabe then
Ich vermute das du den extended zuerst runden musst (round).
[EDIT]
wenn ein wert gefunden wurde wird die schleife nicht abgebrochen...
Mach das hier:
Delphi-Quellcode:
if fertig then begin Edit1.Text:=('Die eingabe wurde überschritten. Summationen:');
Edit2.Text:=(IntToStr(i));
break;
end else Edit1.Text:=('Die Zahl wurde nicht erreicht, da die Berechnung nach 100000 Summationen abgebrochen wurde.');
end;