anchor.diff:    YPositionType := XY.Flags and 15;
   
     if XY.X <> $ffff then
  -    Rect.Left := GetPos( XPositionType, XY.X );
  +    Rect.Left   := GetPos(XPositionType, XY.X);
     if XY.Y <> $ffff then
  -    Rect.Bottom := GetPos( YPositionType, XY.Y );
  +    Rect.Bottom := GetPos(YPositionType, XY.Y);
   end;
   
  -procedure ReadHelpSize( const XY: THelpXYPair;
  -                        Var Rect: THelpWindowRect );
  +procedure ReadHelpSize(const XY: THelpXYPair; var Rect: THelpWindowRect);
   begin
     if XY.X <> $ffff then
  -    Rect.Width := XY.X;
  +    Rect.Width  := XY.X;
     if XY.Y <> $ffff then
       Rect.Height := XY.Y;
   end;
  
positive.code:     ptDynamic:
        case Value of
          1:
            Result := 0; // left
          2:
            Result := XPosRight; // right
          4:
            Result := YPosTop; // top
          8:
            Result := 0; // bottom
          16:
            Result := XYPosCenter; // center.
        end;
    end;
  end;
  
  procedure ReadHelpPosition( const XY: THelpXYPair;
                              Var Rect: THelpWindowRect );
  var
    XPositionType: uint8;
    YPositionType: uint8;
  
negative.code: finalization
    FootnoteRect.Free;
  
  end.
  
  