100 персентно рабочий код!


type
TPersonsEdit = function(rl:uersrights; conn:TADOConnection; app:THandle) : pchar; stdcall;
var
PersonsEdit:TPersonsEdit;
HLib:THandle;
result_ : pchar;
begin
if form1.Articles.State = dsBrowse then begin
result_ := '';
HLib:=0;
try
HLib:=LoadLibrary(pchar(ExtractFilePath(Application.ExeName)+'Persons\Persons.dll'));
if HLib>HINSTANCE_ERROR then begin
PersonsEdit:=GetProcAddress(HLib,'PersonsEdit');
if Assigned(PersonsEdit) then begin
result_ := PersonsEdit(form1.rules, form1.connection, application.Handle);
end
end
if HLib>HINSTANCE_ERROR then FreeLibrary(HLib);
except
Application.ProcessMessages;
if HLib>HINSTANCE_ERROR then FreeLibrary(HLib);
end;