Добавил метод TScData.Init() и сделал во всех местах Result.Init() или New(Result, Init).