Создание RunTime объектов в DLL

[MsDos]

Здравствуйте, такая вот проблема:
Мне нужно чтобы на главной форме создавались объекты во время выполнения программы. Процедура создания объектов находится в DLL-файле. Процедура в DLL выглядит примерно так:

procedure CrtObj (var obj:TObject; Par:TComponent);
Begin
 //obj - собственно сам создаваемый объект, par - родитель
 obj:=TButton.Create(Par);
 TButton(obj).ParentFont:=false;
 TButton(obj).Caption:='Button1';
 @TButton(obj).onClick:=@btnclick; //btnclick - процедура описанная в DLL
 TButton(obj).Parent:=Par;
End;

После выполнения этого кода на форме действительно создается нужный объект со всеми установленными в DLL свойствами. Проблема заключается в том, что не присваивается обработчик события (в данном случае onClick). Причем если в самой DLL после приравнивания @TButton(obj).onClick:=@btnclick; выполнить TButton(obj).Click, то процедура нормально запустится.

Заранее спасибо.

[chertovich]

 @TButton(obj).onClick:=@btnclick;

Я фигею с этой строчки
Попробуй в качестве параметра вывести процедурный тип, разумеется твой

[MsDos]

Что-то я не совсем понял куда выводить, можно пример?