M>Ошибка в том, что для потомков TComponent необходимо вызывать конструктор TComponent.Create(AOwner: TComponent); Поэтому, может помочь следующее:
M>[pascal]
M>function CreateControl(AClassName:string; AParent:TWinControl):TWinControl;
M>begin
M> Result:=TWinControlClass(FindClass(AClassName)).Create(AParent);
M> Result.Parent:=AParent;
M>end;
дадада, точно! работает, пасиба