anchor.diff:      Memo1.Lines.Append(aPath + ' - No errors :)');
   end;
   
  +{ TDDEdit }
  +
  +procedure TEdit.WMDropFiles(var Msg: TWMDropFiles);
  +var
  +  Filename: array[0 .. MAX_PATH] of Char;
  +  FileStr: string;
  +begin
  +  DragQueryFile(Msg.Drop, 0, Filename, MAX_PATH);
  +  FileStr:=LowerCase(StrPas(FileName));
  +  Form1.Edit1.Text := FileStr;
  +  DragFinish(Msg.Drop);
  +end;
   
   end.
  
positive.code: unit Unit1;
  interface
  uses
    Classes, Controls, Dialogs, Forms, StdCtrls, SysUtils,
    KM_Defaults, KM_Scripting;
  
  
  type
    TForm1 = class(TForm)
  
negative.code:     fScripting: TKMScripting;
  
      procedure Validate(aPath: string; aReportGood: Boolean);
  
    end;
  
  
  