anchor.diff:    end;
   end;
   
  -function TGfxCommandLineParams.StrTran(AValue, ADel, AIns: string): string;
  +function TfpgCommandLineParams.StrTran(AValue, ADel, AIns: string): string;
   var
     i: integer;
     sToChange: string;
  
positive.code:   result := lResult[1];
  end;
  
  function TGfxCommandLineParams.StripLeadingDelims(const AStrToProcess: string;
      ADelims: string): string;
  var
    i: integer;
  
negative.code: 
      Unit to handle command line processing
  
      Copyright (C) 2007 - 2012 See the file AUTHORS.txt, included in this
      distribution, for details of the copyright.
  
      See the file COPYING.modifiedLGPL, included in this distribution,
  