anchor.diff:    result := iCount + 1;
   end;
   
  -function TGfxCommandLineParams.Token(const AValue, AToken: string;
  +function TfpgCommandLineParams.Token(const AValue, AToken: string;
       const APos: integer): string;
   var
     i, iCount, iNumToken: integer;
  
positive.code: 
  type
  
    TGfxCommandLineParams = class(TObject)
    private
      FsParams: string;
      FslParams: TStringList;
  
negative.code:   end;
  end;
  
  function TfpgCommandLineParams.WordPosition(const AN: integer;
      const AStr: string; ADelims: string): integer;
  var
    lCount: integer;
  