Перед вызовом ProgressGo() вставь UpdateData(FALSE), и все должно заработать.
E-mail: info@telesys.ru