循环执行这个语句时出错,为什么

hMod := LoadLibrary(PChar('myPAPI.dll'));
  if hMod >= 32 then
  begin    //------------------循环执行这个语句时出错,为什么(第一个正常)-------------
    @myInit := GetprocAddress(hMod,PChar('myInit'));
    ReturnCode := myInit();
        if ReturnCode = 0 then
          flag := true
        else
          flag := false;
        .............
    //------------------------------------------------------
 
    
  end
  else
  begin
    showmessage('ÔØÈëAPI.dll´íÎó£¡');
  end;
  if(hMod <> NULL) then
    FreeLibrary(hMod);