anchor.diff:      ptDynamic:
         case Value of
           1:
  -          Result := 0; // left
  +          Result := 0;           // left
           2:
  -          Result := XPosRight; // right
  +          Result := XPosRight;   // right
           4:
  -          Result := YPosTop; // top
  +          Result := YPosTop;     // top
           8:
  -          Result := 0; // bottom
  +          Result := 0;           // bottom
           16:
             Result := XYPosCenter; // center.
         end;
     end;
   end;
   
  -procedure ReadHelpPosition( const XY: THelpXYPair;
  -                            Var Rect: THelpWindowRect );
  +procedure ReadHelpPosition(const XY: THelpXYPair; var Rect: THelpWindowRect);
   var
     XPositionType: uint8;
     YPositionType: uint8;
  
positive.code: const
    ptCharacters = 0;
    ptPercentage = 1;
    ptPixels = 2;
    ptPoints = 3;
    ptDynamic = 4;
  
    XPosRight = 577; // some random values as markers
    YPosTop = 577;
    XYPosCenter = 578;
  
  type
    THelpWindowRect = class
      Left: longint; // xposright means, right aligned
      Bottom: longint; // xpostop means top aligned
         // both: xyposcenter means centered
      Width: longint;
      Height: longint;
      constructor Create;
      procedure Assign( Rect: THelpWindowRect );
    end;
  
  var
    FootnoteRect: THelpWindowRect;
  
  procedure ReadHelpSize( const XY: THelpXYPair;
                          Var Rect: THelpWindowRect );
  procedure ReadHelpPosition( const XY: THelpXYPair;
                              Var Rect: THelpWindowRect );
  
  
  Implementation
  
  constructor THelpWindowRect.Create;
  begin
    Left := -1;
    Bottom := -1;
    Width := -1;
    Height := -1;
  end;
  
  procedure THelpWindowRect.Assign( Rect: THelpWindowRect );
  begin
    Left := Rect.Left;
    Bottom := Rect.Bottom;
    Width := Rect.Width;
    Height := Rect.Height;
  end;
  
  function GetPos( const PositionType: uint8;
                   const Value: longint ): longint;
  begin
    case PositionType of
      ptCharacters:
  
negative.code:   FootnoteRect := THelpWindowRect.Create;
    with FootnoteRect do
    begin
      Left   := 10;
      Width  := 80;
      Bottom := 10;
      Height := 40;
    end;
  