LockWindowUpdate(Form1->Handle);  // запрещаем обновлять форму 
...
LockWindowUpdate(NULL);  // снимаем запрет