anchor.diff:    end;
   end;
   
  -function TGfxCommandLineParams.WordPosition(const AN: integer;
  +function TfpgCommandLineParams.WordPosition(const AN: integer;
       const AStr: string; ADelims: string): integer;
   var
     lCount: integer;
  
positive.code:   end;
  end;
  
  function TGfxCommandLineParams.StrTran(AValue, ADel, AIns: string): string;
  var
    i: integer;
    sToChange: string;
  
negative.code: end;
  
  // Is AChr in the string AStr ?
  function TfpgCommandLineParams.CharInStr(const AChr: char; const AStr: string): boolean;
  begin
    result := pos(AChr, AStr) <> 0;
  end;
  