Delphi слишком быстро рисует фигуры в цикле. Предложите способы замедления

Application.ProcessMessages;

Слип (как сказали выше)
Или рисовать 1 кадр в событии таймера, а потом ждать.
Или на каждом кадре вычислять разницу во времени с предыдущим и двигать фигуры не на +1, а на +1 * dt.
Расскажите, что у вас за программа, можно будет конкретнее посоветовать.