anchor.diff:    {$IFDEF UNIX}{$IFDEF UseCThreads}
     cthreads,
     {$ENDIF}{$ENDIF}
  -  Classes, SysUtils, CustApp, FileUtil,
  +  Classes, SysUtils, strutils, CustApp, FileUtil,
     { you can add units after this }
     Configuration,
     InitCommand, LinkCommand, ConfigCommand, UpdateIndexCommand;
  
positive.code: procedure TSharpAnal.DoRun;
  var
    ErrorMsg: String;
  begin
    // quick check parameters
    ErrorMsg:=CheckOptions('hcilun','help config init link update name');
    if ErrorMsg<>'' then begin
      ShowException(Exception.Create(ErrorMsg));
      Terminate;
  
negative.code:   // parse parameters
    if HasOption('h','help') then begin
      WriteHelp;
      Terminate;
      Exit;
    end;
  