anchor.diff:  end;
   
   
  -procedure TForm1.ValidateDir(aDir: String);
  -begin
  -  Memo1.Lines.Clear;
  +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;
  
positive.code:     fListFileInFolder : TStringList;
  
      procedure ValidateFileList; overload;
      procedure ValidateDir(aDir: String); overload;
      procedure FindFiles(aPath: String; out aList: TStringList);
      function Validate(aPath: string; aReportGood: Boolean): Boolean;
      procedure WMDropFiles(var Msg: TWMDropFiles); message WM_DROPFILES;
  
negative.code:   // Exe path
    ValidateDir(ExtractFilePath(ParamStr(0)));
    // Utils path
    ValidateDir(ExpandFileName(ExtractFilePath(ParamStr(0)) + '..\..\'), False);
  
    EnableFormComponents(True);
  end;
  