procedure MoveItemsToList(const AFromListBox: TListBox; const AToListBox: TListBox; const ARootFolder: string)