anchor.diff:  
       procedure Validate(aPath: string; aReportGood: Boolean);
   
  +    procedure WMDropFiles(var Msg: TWMDropFiles); message WM_DROPFILES;
     end;
   
   
  
positive.code: 
    fScripting := TKMScripting.Create(nil);
  
    DragAcceptFiles(Form1.Edit1.Handle, True);
  end;
  
  
  procedure TForm1.FormDestroy(Sender: TObject);
  begin
    fScripting.Free;
    DragAcceptFiles(Form1.Edit1.Handle, False);
  end;
  
  procedure TForm1.btnBrowseClick(Sender: TObject);
  
negative.code: uses
    Windows, Messages, Classes, Controls, Dialogs, Forms, StdCtrls, SysUtils,
    KM_Defaults, KM_Scripting, shellapi;
  
  type
    TForm1 = class(TForm)
  