anchor.diff:      fScripting: TKMScripting;
   
       procedure Validate(aPath: string; aReportGood: Boolean);
  +
     end;
   
   
  
positive.code:     Memo1.Lines.Append(aPath + ' - No errors :)');
  end;
  
  
  end.
  
negative.code: unit Unit1;
  interface
  uses
    Windows, Messages, Classes, Controls, Dialogs, Forms, StdCtrls, SysUtils,
    KM_Defaults, KM_Scripting, shellapi;
  
  type TEdit = class(StdCtrls.TEdit)
    procedure WMDropFiles(var Msg: TWMDropFiles); message WM_DROPFILES;
  end;
  
  type
    TForm1 = class(TForm)
  