anchor.diff:  unit Unit1;
   interface
   uses
  -  Classes, Controls, Dialogs, Forms, StdCtrls, SysUtils,
  -  KM_Defaults, KM_Scripting;
  +  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)
  
positive.code:     fScripting: TKMScripting;
  
      procedure Validate(aPath: string; aReportGood: Boolean);
    end;
  
  
  
negative.code:   OpenDialog1.InitialDir := ExtractFilePath(Application.ExeName);
  
    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);
  