Nur so nebenbei:
while Integer(ContinueLoop) <> 0 do
Was ist denn das für eine Konstruktion? Warum nicht:
while ContinueLoop do
Ich sehen diesen Code immer und immer wieder wieder und er wid anscheinend immer und immer wieder ohne Sinn und Verstand kopiert.