ReadLn() für Fensterprogramme?

[MSSSSM]

Und deklariere noch eine Zählvariable und führe das am besten nur alle 50-100 (oder 5-10 je nach dem) aus
Für Alle 50 mal schreibst du ins While
if Zaehlvariable mod 50 = 0 then Application.ProcessMessages;