> -- Цитата:
> PROCEDURE (VAR t: TComponent) SetParams (Params: SET), NEW, EXTENSIBLE;Но как в каждой TForm его расширить?
В смысле "как"? Синтаксически? Просто определяете его еще раз.
Если у TComponent нет никакой реализации, то делайте не EXTENSIBLE, а ABSTRACT или EMPTY.
Если реализация есть, то вообще говоря, лучше делать не EXTENSIBLE, а вводить дополнительный абстрактный или пустой SetParams2. SetParams отрабатывает и вызывает SetParams2. Таким образом тот, кто расширяет тип, уже не должен писать супервызов SetParam^, действия базового класса выполнятся в любом случае.
Да, лучше не именуйте типы префиксом T, это дельфовский стиль. Посмотрите раздел документации Оформление кода.

А вообще, как я понял, Вы хотите сделать нечто подобное VCL?