BTW
Delphi-Quellcode:
If Foo < EndWert then
repeat
...
until Foo >= EndWert;
Ist eigentlich
Delphi-Quellcode:
While Not Foo < EndWert do
begin
end;
Edit: korrigiert
Du solltest das, was du da schreibst, nochmal gründlich überdenken! Jetzt stimmt nämlich fast gar nichts mehr...