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