anchor.diff:      fListFileInFolder : TStringList;
   
       procedure ValidateFileList; overload;
  -    procedure ValidateDir(aDir: String); overload;
  +    procedure ValidateDir(aDir: String; aClear: Boolean = True); overload;
       procedure FindFiles(aPath: String; out aList: TStringList);
       function Validate(aPath: string; aReportGood: Boolean): Boolean;
       procedure WMDropFiles(var Msg: TWMDropFiles); message WM_DROPFILES;
  
positive.code:   // Exe path
    ValidateDir(ExtractFilePath(ParamStr(0)));
    // Utils path
    ValidateDir(ExpandFileName(ExtractFilePath(ParamStr(0)) + '..\..\'));
  
    EnableFormComponents(True);
  end;
  
negative.code: end;
  
  
  procedure TForm1.ValidateDir(aDir: String; aClear: Boolean = True);
  begin
    if aClear then
      Memo1.Lines.Clear
    else
      Memo1.Lines.Append('');
    Memo1.Lines.Append('Check ' + aDir);
    TKMapsCollection.GetAllMapPaths(aDir, fListFileInFolder);
    ValidateFileList;
  