Использование процедуры в dll

[medved6216]

Подскажите, как реализовать обработку события(процедуру) при нажатие кнопки в dll ? Вот код: создания формы и кнопки:

library MainForm;

uses
  SysUtils,
  Classes,
  Forms,
  sBitBtn,
  spanel;

{$R *.res}


function ShowForm : Integer; stdcall;
var
Form : TForm;
exitbtn : tsbitbtn;
begin
Form := TForm.Create(Application);
with form do
begin
caption := 'Desktop';
BorderStyle := bsNone;
FormStyle   := fsStayOnTop;
Left        := 0;
Top         := 0;
Height      := Screen.Height;
Width       := Screen.Width;
end;

exitbtn := TsBitBtn.Create(form);
with exitbtn do
begin
parent := form;
caption := 'exit';
top := 100;
left := 100;
onclick := exitbtn; // тут обработка нажатия
end;

Result := Form.ShowModal;
Form.Free;
end;
{Данная процедура не реализовывается}
procedure exitbtn(Sender: TObject); // как это реализовать
begin
form.close; // закрытие формы
end;

exports
ShowForm;

begin
end.

Подскажите как реализовать, чтобы при нажатии кнопки - форма закрывалась? При данном действии dll не компилируется.

[xwicked]

library Project2;

uses
 ShareMem, //для строк
forms, unit1,
  Unit2 in 'Unit2.pas' {FUchPlan};//модуль с полнофункциональной формой

{$R *.res}

procedure ShowUchPlan; export;//экспортируемая функция
begin
 Application.CreateForm(TFUchPlan,FUchPlan);//создание формы из модуля Unit2
 FUchPlan.ShowModal;//модальный показ
end;

exports
ShowUchPlan;
end.

Вызов формы:

var
  Form1: TForm1;
       h:hwnd;
implementation

{$R *.dfm}

procedure ShowUchPlan; external 'project2.dll';//подключение функции показа формы

procedure TForm1.Button1Click(Sender: TObject);
begin
 h:=LoadLibrary('project2.dll');//загрузка библиотеки
 ShowUchPlan;//показ формы
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
FreeLibrary(h);//выгрузка библиотеки
end;

Начало Unit2;:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, Grids, StdCtrls, Menus, XPStyleActnCtrls,
  ActnList, ActnMan;

type
  TFUchPlan = class(TForm)

[medved6216]

xwicked, спасибо) Я вот тоже думал о такой реализации