[urahara]

объявить глобально:

Код:

var
  hEvent: Cardinal;

само ожидание:

Код:

  hEvent := CreateEvent(nil, True, False, nil);
  GetQueueStatus(QS_ALLEVENTS);
  WaitForSingleObject(hEvent, INFINITE);

там где у тебя завершается загрузка пишешь:

Код:

  PulseEvent(hEvent); 

обычный winapi, это же так просто.