Dll yardımı ile yapılan butona kapat görevi verme

[kubra_21]

s.a arkadaşlar ben dll yardımıyla bir form yapıp formu çalıştırdığımda üzeinde bir label ve buton creat ediliyor. butona basınca form kapanacak. tüm herşey tamamda bu butona basınca kapanma olayı olmuyor. sizce neden olabilir. bu butonun onclick olayı neden kapat procedure ü almıyor. bir fikri olan varmı bu arada bu mutlaka bu buton mutlaka Tbutton cinsinden olmalı.......

kod:
unit dllunit;

interface
uses
Windows, Messages,buttons, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls,stdctrls;

// procedure formgoster(h:thandle);stdcall;
procedure formgoster(h:thandle;mesaj:string);stdcall;
procedure kapat;
implementation
var
ff:Tform;
xLabel : TLabel;
xbutton:Tbitbtn;
a:integer;
procedure formgoster;
begin
application.Handle:=h;
ff:=tform.Create(ff);
// ff.BorderStyle:=Bsnone;
//ff.AutoSize:=True;
xLabel := TLabel.Create(ff);
xlabel.Left:=20;
xlabel.Top:=20;
xLabel.Caption := Mesaj;
a:=length(mesaj);
xlabel.Width:=a+5;
xLabel.Parent := ff;
xbutton:=TBitbtn.Create(ff);
xbutton.Left:=100;
xbutton.Top:=50;
xbutton.Caption:='Tamam';
xbutton.Parent:=ff;
xbutton.OnClick:=Kapat;
ff.showmodal;
ff.free;
end;
procedure kapat;
begin
application.Terminate;
end;

yardımlarınızı bekliyorum...

[hdayi]

Kod: Tümünü seç

procedure kapat(sender:TObject);
begin
application.Terminate;
end; 

şeklinde dener misin. Parametrelerin bire bir aynı olması gerekiyor.
İnşallah olur.

Kolay Gelsin...