我是新手几个简单的问题[Error] Unit1.pas(24): Unsatisfied forward or external declaration: 'TForm1.Button2Click'

Question

[Error] Unit1.pas(24): Unsatisfied forward or external declaration: 'TForm1.Button2Click'
还有[Fatal Error] Project2.dpr(5): Could not compile used unit 'Unit1.pas'
下面几条语句写到 ”button4.Enabled:=true;“时就出错了
谢谢各位大哥大姐帮帮我。unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, StdCtrls, Mask, DBCtrls;type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    DataSource1: TDataSource;
    T_student: TTable;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
 T_student.Active:=true;//打开数据库表
end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
T_student.Active:=false;//关闭数据库表
end;procedure TForm1.Button1Click(Sender: TObject);
begin
if T_student.Bof then
begin
button1.Enabled:=false;//使按钮无效
end
else
begin
T_student.Prior;
button2.Enabled:=true;
button4.Enabled:=true;end;end

Answer 1

procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);--笨拉登，你的声明还在，而实现代码却被你删除，当然报错。把函数声明删除就可以了。新手上路，可以多找些基础的书看看，不过我觉得学语言，基本功还是要扎实！！

Answer 2

当我双击button2写他的代码时就提示这样一个错误”can not find implementation of method button2click.

Answer 3

:-) button2的Click代码都被你删除了，当然报错，直接一下后三行代码删除就行了。
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);//删除掉
    procedure Button3Click(Sender: TObject);//删除掉
    procedure Button4Click(Sender: TObject);//删除掉

Answer 4

新手学DELPHI，难免什么都不懂，支持楼主，希望你能够坚持到底。