Здравствуйте, __Azeroth, Вы писали:

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

я сам до этого почти догадался, придумал такое решение: Создать абстрактный класс TStorageInterface,базовый для TStorage и находящийся в отдельном файле. Использовать так же как предлагаемый TObject.
IMHO:
+ не запутаеmься в TObject'aх и касты не надо делать.
— еще один файл и класс.