[Tfp]

а можно в цикле обновлять еекран? мож так быстрее будет
нечто похожее на

whilte true{
sleep(20)
refresh_screen()
}