anchor.diff:    end;
   
     if txt <> '' then
  -    Memo1.Lines.Append(aPath + sLineBreak + txt)
  -  else
  +  begin
  +    Memo1.Lines.Append(aPath + sLineBreak + txt);
  +    Result := False;
  +  end else
       if aReportGood then
         Memo1.Lines.Append(aPath + ' - No errors :)');
   end;
  
positive.code:       Memo1.Lines.Append('Directory not found ' + Edit1.Text)
      else
      begin
        Memo1.Lines.Append('Search for files in a folder ...');
        fListFileInFolder.Clear;
        Memo1.Lines.Append('Check ' + Edit1.Text);
        FindFiles(Edit1.Text, fListFileInFolder);
        if fListFileInFolder.Count = 0 then
          Memo1.Lines.Append('No files in a directory ' + Edit1.Text)
        else
        begin
          Memo1.Lines.Append('Files in folder: ' + IntToStr(fListFileInFolder.Count));
          for I := 0 to fListFileInFolder.Count - 1 do
            Validate(fListFileInFolder.Strings[I], True);
          Memo1.Lines.Append('Checked ' + IntToStr(fListFileInFolder.Count));
        end;
      end;
    end else if fIsValidatePath = fof_File then
      Validate(Edit1.Text, True);
  
negative.code: unit Unit1;
  {$WARN SYMBOL_PLATFORM OFF}
  {$WARN UNIT_PLATFORM OFF}
  
  interface
  uses
    Windows, Messages, Classes, Controls, Dialogs, Forms, StdCtrls, StrUtils, SysUtils,
    FileCtrl,
    KM_Defaults, KM_Scripting, shellapi;
  
  type
  