这个代码那里出了错误呀？？？

Question

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
  private
    abutton:array [1..100] of TButton;
    procedure ButtonAllClick(sender:Tobject);
  public
    { Public declarations }
  end;  procedure TForm1.ButtonAllClick(sender:Tobject);
  begin
    application.MessageBox(TButton(sender).caption,'对话框',MB_OK);
  end;
var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.BitBtn1Click(Sender: TObject);
var
  i,j:integer;
begin
  for i:=0 to 9 do
  begin
    for j:=1 to 10 do
    begin
      abutton[i*10+j]:=Tbutton.Create(self);
      abutton[i*10+j].Parent:=Self;
      abutton[i*10+j].Width:=100;
      abutton[i*10+j].Height:=30;
      abutton[i*10+j].Left:=i*abutton[i*10+j].Width+20;
      abutton[i*10+j].Top:=j*abutton[i*10+j].Height+20;
      abutton[i*10+j].Caption:=inttostr(i*10+j);
      abutton[i*10+j].OnClick:=ButtonAllClick;
    end;
  end;
end;end.

Answer 1

application.MessageBox(TButton(sender).caption,'对话框',MB_OK);
改为：
application.MessageBox(PChar(TButton(sender).caption), '对话框', MB_OK);—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————

Answer 2

请注意以下代码的位置和Pchar()转化函数：
  procedure TForm1.ButtonAllClick(sender:Tobject);
  begin
    application.MessageBox(TButton(sender).caption,'对话框',MB_OK);
  end;
----------------------------------unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
  private
    abutton:array [1..100] of TButton;
    procedure ButtonAllClick(sender:Tobject);
  public
    { Public declarations }
  end;
var
  Form1: TForm1;implementation{$R *.dfm}
procedure TForm1.ButtonAllClick(sender:Tobject);
begin
    application.MessageBox(Pchar(TButton(sender).caption),'对话框',MB_OK);
end;procedure TForm1.BitBtn1Click(Sender: TObject);
var
  i,j:integer;
begin
  for i:=0 to 9 do
  begin
    for j:=1 to 10 do
    begin
      abutton[i*10+j]:=Tbutton.Create(self);
      abutton[i*10+j].Parent:=Self;
      abutton[i*10+j].Width:=100;
      abutton[i*10+j].Height:=30;
      abutton[i*10+j].Left:=i*abutton[i*10+j].Width+20;
      abutton[i*10+j].Top:=j*abutton[i*10+j].Height+20;
      abutton[i*10+j].Caption:=inttostr(i*10+j);
      abutton[i*10+j].OnClick:=ButtonAllClick;
    end;
  end;
end;end.

Answer 3

[Error] Unit1.pas(21): Identifier redeclared: 'TForm1.ButtonAllClick'
[Error] Unit1.pas(22): Undeclared identifier: 'sender'
[Error] Unit1.pas(15): Unsatisfied forward or external declaration: 'TForm1.ButtonAllClick'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
还是出这个错误，我用的是Delphi7.0

Answer 4

把
procedure TForm1.ButtonAllClick(sender:Tobject);
begin
  application.MessageBox(TButton(sender).caption,'对话框',MB_OK);
end;放到implementation后面去。

Answer 5

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
  private
    abutton:array [1..100] of TButton;
    procedure ButtonAllClick(sender:Tobject);
  public
    { Public declarations }
  end;  
var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.BitBtn1Click(Sender: TObject);
var
  i,j:integer;
begin
  for i:=0 to 9 do
  begin
    for j:=1 to 10 do
    begin
      abutton[i*10+j]:=Tbutton.Create(self);
      abutton[i*10+j].Parent:=Self;
      abutton[i*10+j].Width:=100;
      abutton[i*10+j].Height:=30;
      abutton[i*10+j].Left:=i*abutton[i*10+j].Width+20;
      abutton[i*10+j].Top:=j*abutton[i*10+j].Height+20;
      abutton[i*10+j].Caption:=inttostr(i*10+j);
      abutton[i*10+j].OnClick:=ButtonAllClick;
    end;
  end;
end;procedure TForm1.ButtonAllClick(Sender: Tobject);
begin
  Application.MessageBox(PChar(TButton(Sender).Caption),'对话框',MB_OK);
end;end.