Stack Overflow

[Tom]

falsch:
    for iFor := 0 to Length(Text) -1 do richtig:
    for iFor := 1 to Length(Text) do

Delphi-Quellcode:

...    begin
      Text := Text + '.';
    end;
  end;

1) Was soll das bewirken? Für die Anzahl der Zeichen hänge ein Punkt dahinter?
2) Eine Änderung von Text ruft Change auf. Das ganze ist also eine Endlosschleife.