procedure TMainForm.ShellTreeBeforeShellDrop(sender, DropTarget: TObject;
DroppedFiles: TStrings; var ExecuteDrop: Boolean);
begin
ShowMessage('The file(s) ' + DroppedFiles.Text + ' have been dropped on '+ ShellTree.GetFullPath(DropTarget as TJamShellTreeNode));
end;