anchor.diff:  var
     proc: TProcess;
     lst: TStringList;
  -  stripChars: TSysCharSet;
  -  lstText: AnsiString;
   begin
     Result := 0;
  -  stripChars := ['"'];
     proc := tprocess.Create(nil);
     proc.Executable := 'pgrep';
     proc.Parameters.Add(ExeName);
  
positive.code:     Free;
    end;
    {$ENDIF}
  end;
  
  function exeInSysPath(anExeName: string): boolean;
  
negative.code:     lst := TStringList.Create;
      try
        lst.LoadFromStream(proc.Output);
        Result := StrToInt(Trim(lst.Text));
      finally
        lst.Free;
      end;
  