[M.A.D.M.A.N.]

Функа в дллке

Код:

function IchBinFunktion(aForm: TForm): boolean; stdcall;
var 
  button: TButton;
begin
  button := TButton.Create(aForm);
***тут море кода***
  button.parent := aForm;
***
  Result := true;
{
тут можно какой-нибудь обработчик исключительных ситуаций сделать
}
end;