anchor.diff:      Memo1.Lines.Append(aPath + ' - No errors :)');
   end;
   
  -{ TDDEdit }
  -
  -procedure TEdit.WMDropFiles(var Msg: TWMDropFiles);
  +procedure TForm1.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;
  +  Edit1.Text := Filename;
     DragFinish(Msg.Drop);
   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: 
      procedure Validate(aPath: string; aReportGood: Boolean);
  
      procedure WMDropFiles(var Msg: TWMDropFiles); message WM_DROPFILES;
    end;
  
  
  