The memory Could not be read

سلام دوستان عزيز
يه برنامه با دلفي نوشتم + يه dll
فايل dll رو توي برنامم لود (با LoadLibrary)مي كنم و از يه تابعش استفاده مي كنم (اين تابع Export شده و يه داده اي هم برميگردونه ) ولي وقتي هندل dll رو FreeLibrary مي كنم با ارور

https://barnamenevis.org/attach...1&d=1252991352

رو به رو مي شم اينم تيكه كد فراخواني و ...

 type

   TDLLFunc = procedure(var ar: array of integer);

  // TDLLFunc1 = procedure;



 {assign a nil - not loaded function}

 var

   DLLFunc: TDLLFunc ;

   DLLHandle: THandle;

{handle of loaded dll}

Function myf(ss:string):string;

 var

 vv:array [1..16] of integer;

   DLLName:string;

begin

 { load a library }

 DLLName:='c:\1.dll';

 DLLHandle := LoadLibrary(pchar(DLLName));



 if (DLLHandle < HINSTANCE_ERROR) then

     raise Exception.Create(DLLName + ' library can not be loaded or not found. ' + SysErrorMessage(GetLastError));



   try

     { load an address of required procedure}

     @DLLFunc := GetProcAddress(DLLHandle, 'Wi');

     {if procedure is found in the dll}

     if Assigned(DLLFunc) then



    DLLFunc(vv);

    Result:= ss + 'OK';

   finally

     {unload a library}

     FreeLibrary(DLLHandle);

   end;

end;