请帮忙看一下，为什么会出现这个错误？

Question

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;  TMyEvent = procedure of object;  TMyclass = class
  private
    Fage:Integer;
    FOnHundred:TMyEvent;
    procedure SetAge(const value:Integer);
  public
    procedure SetOnHundred1;
    procedure SetOnHundred2;
    property OnHundred:TMyEvent  read FOnHundred write FOnHundred;
    property age:Integer  read Fage write SetAge;
  end;var
  Form1: TForm1;implementation{$R *.dfm}{ TMyclass }constructor TMyclass.create;
beginend;
procedure TMyclass.SetAge(const value: Integer);
beginend;procedure TMyclass.SetOnHundred1;
beginend;procedure TMyclass.SetOnHundred2;
beginend;
[Error] Unit1.pas(42): Undeclared identifier: 'create'?

Answer 1

呵呵，提示得很清楚嘛，Undeclared未声明