Hallo,
nein, ich kann dir kein Beispiel geben. Ich kann kein Delphi.
An deinem Code sind einige Dinge etwas falsch. Zum einen kannst du dir das Application.ProcessMessages an dieser Stelle sparen. Wahrscheinlich willst du, dass das Programm nicht einfriert. Dann musst du die Anweisung aber in die Schleife setzen. Ich gehe aber auch davon aus, dass das nicht viel helfen wird. An dieser Stelle sind Threads die richtige Lösung. Du findest sicher was wenn du danach suchst.
Außerdem sollte man es vermeiden auf True zu prüfen. Ersetze die Prüfung im While-Kopf doch bitte durch "while flood do". Der auftretende Fehler lässt sich wohl dadurch erklären, dass deine Seite-Variable Unfug enthält.
Liebe Grüße,
Valentin