请教各位老师：我在窗口上，加了一个按钮，然后。。。。。

Question

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
    FButton: TButton;
    procedure ButtonClick(Sender: TObject);
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.ButtonClick(Sender: TObject);
begin
  ShowMessage(TButton(Sender).Caption);
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  FButton := TButton.Create(Self);
  FButton.Parent := Self;
  FButton.Caption := '一个测试';
  FButton.OnClick := ButtonClick;
  FButton.Left := 10;
  FButton.Top := 10;
end;procedure TForm1.FormDestroy(Sender: TObject);
begin
  FButton.Free;
end;end.

Answer 1

procedure TForm1.TButtonClick(Sender: TObject);
var
  FButton :TButton; 
begin
  FButton := TButton.Create(Self);
  FButton.Parent := Self;
  FButton.Caption := '一个测试';
end;

Answer 2

zswang(伴水)(* pascal→c *) (  ) 
好我算是记住你了！
   :)