AcroApp := CreateOleObject('AcroExch.App');

  AcroApp.Lock( 'App' );
  AVDoc := CreateOleObject('AcroExch.AVDoc');
  AVDoc.OpenInWindowEx(FileName, pnlPDF.Handle, AV_DOC_VIEW, 1, 0, 0, 0, 0, 0, 0);
  AVDoc.SetTitle( DBObject._ObjectName.AsString );
  AVDoc.BringToFront;


  PDDoc := AVDoc.GetPDDoc;
  JS := PDDoc.GetJSObject;
  if VarIsClear(JS) then
  begin
    PDDoc := CreateOleObject('AcroExch.PDDoc');
    PDDoc.Open(FileName);
    JS := PDDoc.GetJSObject;
  end;
  for I := 0 to JS.numFields-1 do
  begin
    PdfFieldName := JS.getNthFieldName(I);
    PdfField := JS.getField(PdfFieldName);
    DBObject.cdPdfFields.Append;
    DBObject.cdPdfFieldsFieldName.AsString := PdfFieldName;
    DBObject.cdPdfFieldsFieldType.AsString := PdfField.Type;
    if DBObject._PdfFields.Locate('FieldName', PdfFieldName, [loCaseInsensitive]) then
      DBObject.cdPdfFieldsVarLink.Value := DBObject._PdfFieldsVarLink.Value;
  end;