Зависание CopyFileEx при перемещении формы

[ProESM]

Приветствую всех!

Такая вот проблемка, помогите, пожалуйста, решить ее.

Копирую файлы функцией CopyFileEx

Windows.CopyFileEx(
      PChar(UpdatePath+FileList.Strings[i]),
      PChar(AppPath+FileList.Strings[i]),
      @ProgressRoutine,
      nil,
      nil,
      0
    );

Все прекрасно, файлы копируются, прогрессбар все отрисовывает корректно. Но при перемещении формы на рабочем столе, процесс копирования файла останавливается. Если прекратить перетаскивать форму, то процесс продолжается.

Как можно этого избежать?

[artemavd]

Добавь в код строку

Application.ProcessMessages;

[ProESM]

Уже имеется в CallBack функции:

function ProgressRoutine(TotalFileSize, TotalBytesTransferred, StreamSize, StreamBytesTransferred: LARGE_INTEGER;
  dwStreamNumber,	dwCallbackReason: DWord; hSourceFile,	hDestinationFile: THandle; lpData: Pointer): DWord; stdcall;
begin
  // Очередная порция данных равна 32768 байт (равно максимальному значению типа
  // данных SmallInt. Копируем порции только кратные, к примеру, числу 10.
  // Делитель "10" управляет балансом скорость/индикация. Чем выше делитель, тем
  // копирование идет быстрее, но индикация менее плавная. И наоборот
  if (TotalBytesTransferred.QuadPart mod 10) = 0 then
  begin
    MainForm.DetalProgressBar.Position := Round(TotalBytesTransferred.QuadPart / TotalFileSize.QuadPart * 1000);

    if TotalBytesTransferred.QuadPart > (TotalFileSize.QuadPart-StreamBytesTransferred.QuadPart) then
      MainForm.Caption := '';

    //    ProgressLabel.Caption := IntToStr(ProgressBar1.Position) + '%';
    MainForm.Update;
    Application.ProcessMessages;
  end;
  if IsCanceled then
    Result := PROGRESS_CANCEL
  else
    Result := PROGRESS_CONTINUE
end;