anchor.diff:    fScripting.Free;
     DragAcceptFiles(Handle, False);
   end;
  +
   
   procedure TForm1.btnBrowseClick(Sender: TObject);
   begin
  
positive.code: 
    // Utils path
    TKMapsCollection.GetAllMapPaths(ExpandFileName(ExtractFilePath(ParamStr(0)) + '..\..\'), maps);
    for I := 0 to maps.Count - 1 do
      Validate(ChangeFileExt(maps[I], '.script'), False);
  
    Memo1.Lines.Append('Checked ' + IntToStr(maps.Count) + ' in ..\..\');
  end;
  
  
  procedure TForm1.Validate(aPath: string; aReportGood: Boolean);
  var
    CampaignFile: UnicodeString;
    txt: string;
  begin
    if not FileExists(aPath) and aReportGood then
    begin
  
negative.code: unit Unit1;
  
  interface
  uses
    Messages, Forms, Dialogs, StdCtrls, Controls, Classes, KM_Scripting;
  
  type
    TForm1 = class(TForm)
  