Привет!
Помогите pls в следующем вопросе. При создании кнопки, принадлежащей главной форме, из DLL возникает ошибка типа EInvalidTypecast, хотя при копировании той же процедуры в юнит и создании кнопки всё так же динамически все работает без ошибок. В чем проблема?

Код: DLL
function BtCreate(base: TComponent; Cap: string; var btop: integer):TSpeedButton;stdcall;
var bt: TSpeedButton;
begin
bt := TSpeedButton.Create(base);
bt.Parent := (base as TWinControl);
bt.Height:=22;
bt.Width := 125;
bt.top:=btop+22;
bt.Caption := cap;
Result := bt;
end;

procedure Init(base: TComponent; var btop: integer);stdcall;
var len : integer;
bt1,bt2:TSpeedButton;
begin
bt1:=BtCreate(base, Application, 'Кнопа1', btop);
bt2:=BtCreate(base, Application, 'Кнопа2', btop);
end;

exports Init;

ПРОГА:

procedure TfrmMain.FormCreate(Sender: TObject);
begin
btop:=frmMain.Height-frmMain.ClientHeight;
Init(frmMain, btop);
end;