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) пишите итерацию вашего цикла, сделав только переменные процедуры прорисовки глобальными.
 
				 
 
		 
 
		 
 
		
 
 
		