2 Taras
1) в конце каждого цикла указывайте немедленное выполнение всех задач в очереди, дописывайте процедурку Application.ProcessMessages, подробней об этом можете прочитать здесь
или
2) добавте компоненту 'Timer' или что-то в этом роде (сейчас нет под рукой Делфи) и на процедуре ''Ontimer' (double click component) пишите итерацию вашего цикла, сделав только переменные процедуры прорисовки глобальными.
1) в конце каждого цикла указывайте немедленное выполнение всех задач в очереди, дописывайте процедурку Application.ProcessMessages, подробней об этом можете прочитать здесь
You must be registered for see links
или
2) добавте компоненту 'Timer' или что-то в этом роде (сейчас нет под рукой Делфи) и на процедуре ''Ontimer' (double click component) пишите итерацию вашего цикла, сделав только переменные процедуры прорисовки глобальными.