procedure DesignPriceList(ADLLCallBack: TDLLCallBack);
var
  lib: HInst;
  DesignFun: function(ADLLCallBack: TDLLCallBack): Integer;
  Result: Integer;
begin
  lib := LoadLibrary(pChar('c:\tw\db\LibPrice.dll'));
  if(lib = 0) then begin
    Application.MessageBox('Ошибка вызова LinPrice.dll!', 'TW', MB_OK + MB_ICONERROR);
    exit;
  end;
  @DesignFun := GetProcAddress(lib, 'DesignPrice');
  if(@DesignFun = nil) then begin
    Application.MessageBox('Ошибка вызова функции DesignPrice!', 'TW', MB_OK + MB_ICONERROR);
    FreeLibrary(lib);
    exit;
  end;
  Result := DesignFun(ADLLCallBack);
  FreeLibrary(lib);
end;