anchor.diff:  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)
  
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:     Memo1.Lines.Append(aPath + ' - No errors :)');
  end;
  
  procedure TForm1.WMDropFiles(var Msg: TWMDropFiles);
  var
    Filename: array[0 .. MAX_PATH] of Char;
  begin
    DragQueryFile(Msg.Drop, 0, Filename, MAX_PATH);
    Edit1.Text := Filename;
    DragFinish(Msg.Drop);
  end;
  
  