B>как быть с объявлением parent, который сейчас TStorage?
если TStorage выносить в отдельный модуль, то парент придётся объявить нейтрально например как TObject, а во всех функциях работающих с парентом использовать кастинг, так все делают