[Martin]

Есть окно с одним tabsheet. На этот tabsheet программист ручками кидает произвольное число контролов (поля ввода чисел, строк, разные "галочки" и т.д.) со своими свойствами (в частности, эвентом OnChange, ссылающимся на определенные процедуры обработки).
Нужно программно сгенерировать определенное число tabsheets, куда программно скопировать контролы с первого tabsheet (визуально выглядящие и находящиеся на тех же местах, как и на первом tabsheet).
Смысл в том, чтобы вводить через разные однотипные контролы в разных однотипных tabsheets данные в массивы параметров.
Как это можно сделать?
Попробовал сделать так:

Код:

    for i := 0 to TabSheet16.ComponentCount - 1 do
    begin
        contr := TCustomControl.Create(self);
        contr.Assign(TabSheet16.Components[i] as TCustomControl);
        contr.Parent := TabSheet17;
    end;

- результат пустой.