anchor.diff:  
   
   procedure TForm1.btnValidateClick(Sender: TObject);
  -var
  -  I : Integer;
   begin
     EnableFormComponents(False);
  -
     Memo1.Lines.Clear;
     if fIsValidatePath = fof_Folder then
     begin
  
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: end;
  
  
  procedure TForm1.ValidateFileList;
  var
    I,ErrFilesCnt: Integer;
  begin
    ErrFilesCnt := 0;
    if fListFileInFolder.Count = 0 then
      Memo1.Lines.Append('No files in a directory :(')
    else
    begin
      Memo1.Lines.Append('Files in the folder: '+IntToStr(fListFileInFolder.Count));
      for I := 0 to fListFileInFolder.Count - 1 do
        if not Validate(ChangeFileExt(fListFileInFolder[I], '.' + EXT_FILE_SCRIPT), False) then
          Inc(ErrFilesCnt);
  
      Memo1.Lines.Append(Format('Checked: %d. Script files with errors: %d', [fListFileInFolder.Count, ErrFilesCnt]));
    end;
  end;
  
  
  procedure TForm1.ValidateDir(aDir: String);
  begin
    Memo1.Lines.Clear;
    Memo1.Lines.Append('Check ' + aDir);
    TKMapsCollection.GetAllMapPaths(aDir, fListFileInFolder);
    ValidateFileList;
  end;
  
  
  procedure TForm1.btnValidateAllClick(Sender: TObject);
  begin
    EnableFormComponents(False);
  
    // Exe path
    ValidateDir(ExtractFilePath(ParamStr(0)));
    // Utils path
    ValidateDir(ExpandFileName(ExtractFilePath(ParamStr(0)) + '..\..\'));
  
    EnableFormComponents(True);
  end;
  
  function TForm1.Validate(aPath: string; aReportGood: Boolean): Boolean;
  var
    CampaignFile: UnicodeString;
    txt:          string;
  begin
    Result := True;
    if not FileExists(aPath) and aReportGood then
    begin
      Memo1.Lines.Append('File not found ' + aPath);
  