为什么调用Tform1.Formclose事件没有效果？

Question

有如下代码：
procdure Tform1.Formclose(sender:TObject;var Action:TcloseAction);
begin
 .          {这里是代码部分}
 .
end;procdure Tform1.Button1click(sender:TObject);
begin  
    Formclose(sender);       //想调用上面这段代码，但有错误，应该怎么改？在线等，谢谢。。
end;

Answer 1

1. Self.Colse;
2. var Action:TCloseAction;
   FormClose(Self,Action); //但这句并不能关闭窗体，只是调用了一个普通的方法而已

Answer 2

procdure Tform1.Button1click(sender:TObject);
begin
  Close;
end;

Answer 3

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  //Action:=caFree;
  Application.Terminate
end;procedure TForm1.Button1Click(Sender: TObject);
var
  a:TCloseAction;
begin
  a:=caHide;
  FormClose(Sender,a);
end;

Answer 4

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Application.Terminate
end;procedure TForm1.Button1Click(Sender: TObject);
var
  a:TCloseAction;
begin
  a:=cafree;
  FormClose(Sender,a);
end;

Answer 5

你调用时少传了个参数 var Action:TcloseAction 。
Formclose(sender:TObject;var Action:TcloseAction);