如何在dll中创建一个按钮,然后把它在主程序的窗体里 ( 积分: 20 )

我代码如下
dll:
function CreateBtn(sender:Tobject):TButton;stdcall;
begin
result:=TButton.create(TForm(sender));
result.Caption:='df';
result.Parent:=TForm(sender);
end;
exe:
procedure TForm1.Button1_OnClick(sender:TObject)
var
btn:TButton;
begin
btn:=CreateBtn(self);
end;
现在的问题是每次到result.Parent:=TForm(sender);时会有错误.

我代码如下
dll:
function CreateBtn(sender:Tobject):TButton;stdcall;
begin
result:=TButton.create(TForm(sender));
result.Caption:='df';
result.Parent:=TForm(sender);
end;
exe:
procedure TForm1.Button1_OnClick(sender:TObject)
var
btn:TButton;
begin
btn:=CreateBtn(self);
end;
现在的问题是每次到result.Parent:=TForm(sender);时会有错误.