#pas
...
procedure MyCallback(pCtx:pointer; pUserData:pointer); stdcall;
var   pCls:THiImageLoader; 
begin
   pCls := THiImageLoader(pUserData);
   SetEvent(pCls.hOK);
// и больше НИЧЕГО!!!
end;
procedure THiImageLoader._work_doLoad;
   ...
   FImgCtx.SelectChanges(IMGCHG_COMPLETE,0,1);
   WaitForSingleObject(hOK,INFINITE);
   _debug('ok');
   ...