anchor.diff:    bNoLog: boolean;
     bExpr: boolean;
   begin
  -  bNoLog:= SEndsWith(Str, ';');
  +  bNoLog:= EndsStr(';', Str);
     if bNoLog then
       Delete(Str, Length(Str), 1)
     else
  
positive.code: 
  function TfmConsole.ParseLine(const S: string): TAppConsoleLineKind;
  begin
    if SBeginsWith(S, cConsolePrompt) then
      exit(acLinePrompt);
  
    if SBeginsWith(S, 'NOTE: ') then
      exit(acLineNote);
  
    if SBeginsWith(S, 'ERROR: ') then
      exit(acLineError);
  
    //SEndsWith is better, to find FindInFiles4 log string added to 'traceback'
    if SEndsWith(S, 'Traceback (most recent call last):') then
      exit(acLineError);
  
    if IsConsoleErrorLine(S) then
  
negative.code: procedure TfmConsole.DoGetLineColor(Ed: TATSynEdit; ALineIndex: integer;
    var AColorFont, AColorBg: TColor);
  var
    Str: UnicodeString;
    fmt: TecSyntaxFormat;
  begin
    Str:= Ed.Strings.Lines[ALineIndex];
  