type
TInitResDLL = procedure(MgrToolInf: TMgrToolInf); StdCall;
....
var
hDLL: THandle;
pInit: TInitResDLL;
...
begin
...
hDLL := LoadLibrary(PChar(DllName));
..
if hDLL = HINSTANCE_ERROR then
raise Exception.Create(Format(errLoadDLL,[DllName, GetLastError]));
...
@pInit := GetProcAddress(hDLL, InitPrcName);
if @pInit = nil then begin
FreeLibrary(hDLL);
raise Exception.Create(Format(errGetInitProc,[DllName]));
end; // if
try
pInit(MgrToolInf);
finally
...
end;
....