How to enlarge components within a PDF file with Delphi 7?

var
    myAcrobat,
    myAcroPDDoc,
    myAcroAVDoc:      OleVariant;
begin
    myAcrobat := CreateOleObject('AcroExch.App');
    myAcroAVDoc := CreateOleObject('AcroExch.AVDoc');
 
    myAcroAVDoc.Open(FileName, '');
 
    myAcroAVDoc := myAcrobat.GetAVDoc(myAcrobat.GetNumAVDocs -1);
    myAcroPDDoc := myAcroAVDoc.GetPDDoc;
 
    jso := myAcroPDDoc.GetJSObject;
    ...
end;

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

var
  VT: TVarType;
begin
   VT := VarType(mField.rect);
   //VT := VarType(mField.rect[0]);
   case VT and varTypeMask of
      varStrArg: result := 'COM-compatible string';
      varEmpty   : result := 'The variant is Unassigned';
      varOleStr   : result := 'Reference to a dynamically allocated UNICODE string.';
      varVariant   : result := 'A variant';
      varString   : result := 'Reference to a dynamically allocated string (not COM compatible)';
      varNull   : result := 'The variant is Null.';
      varSmallint   : result := '16-bit signed integer (type Smallint in Delphi, short in C++ ).';
      varInteger : result := '32-bit signed integer (type Integer in Delphi, int in C++).';
      varSingle :   result := 'Single-precision floating-point value (type Single in Delphi, float in C++).';
      varDouble   : result := 'Double-precision floating-point value (type double).';
      varCurrency   : result := 'Currency floating-point value (type Currency).';
      varDate   : result := 'Date and time value (type TDateTime).';
      varDispatch   : result := 'Reference to an Automation object (an IDispatch interface pointer).';
      varError : result := 'Operating system error code.';
      varBoolean : result := '16-bit boolean (type WordBool).';
      varUnknown : result := 'Reference to an unknown object (an IInterface or IUnknown interface pointer).';
      varShortInt   : result := '8-bit signed integer (type ShortInt in Delphi or signed char in C++)';
      varByte   : result := 'A Byte';
      varWord   : result := 'unsigned 16-bit value (Word)';
      varLongWord   : result := 'unsigned 32-bit value (type LongWord in Delphi or unsigned long in C++)';
      varInt64   : result := '64-bit signed integer (Int64 in Delphi or __int64 in C++)';
      varAny : result := 'A CORBA Any value.';
      varArray : result := 'An array.';
      varByRef : result := 'A pointer.';
    else
      result := 'no type recognized!';
    end;
end;

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

var
    dTmp: Variant;
begin
    dTmp := VarType(varDouble);

                                              

1:
2:
3:
4: