Нужно ввести функцию для объектов, описав её поведение в скрипте при несовпадении типоразмеров.
Подробное решение с файлами пользовательских библиотек можно посмотреть здесь.
Программа: СПДС GraphiCS
Группы вопросов: Мастер объектов