Ahoj všem, mám tento kód v Delphi:

var
button:Tbutton;

Function button_x(prenos: Cardinal;formular:Tform;nazev:string;inte:integer):TButton;stdcall;

begin
   Application.Handle := prenos;
button:=Tbutton.Create(Application);
button.ParentWindow:= prenos;
with button do
begin       
  name:='sakra'+inttostr(inte);
  caption:= nazev;
  top:=10*inte;
  left:=10;
  visible:=true;
  tag:=inte;
  OnClick := formular.OnClick;
  show;
end;
result:=button;
end;

exports button_x;
begin
end.

Vše funguje až na jedno, při kliknutí na vytvořené tlačítko v aplikaci, ktera knihovnu volá se nic neprovede.
Jen tam je jak pro ozdobu nevraci žádnou hodnotu. Potřebuji aby se hodnota vracela, protože když příště udělám update změní se i tlačítka a další componenty.
Jak na to aby self.onclick fungoval ??
Nechci vytvářet tlačítka a componenty v aplikaci potřebuji je v knihovnách.