delphi代码那里错了呢

请问下面的delphi代友那里错了呢，我是照书本抄下去的哦
unit Myedit;interfaceuses
  SysUtils, Classes, Controls;
type
  Tmyedit = class(TWinControl)
  private
  FLabel:TLabel;
  FButton:TButton;
  FEdit:TEdit;
  //protected
  public
  constructor create(Aowner:Tcomponent);override;
  destructor destroy;override;
  procedure createwnd;override;
    //{ Public declarations }
  published
    property width default 120;
    property height default 80;
    //{ Published declarations }
  end;procedure Register;implementationprocedure Register;
begin
  RegisterComponents('Samples', [Tmyedit]);
end;
 //构造
 constructor TMyedit.create(Aowner:Tcomponent);
    begin
       inherited create(AOwner);
       width:=120;
       heigth:=80;
       FLabel:=TLabel.create(self);
       FButton:=TButton.create(self);
       FEdit:=TEdit.create(self);   end;
 //窗体创建
   procedure Tmyedit.createwnd;
     begin
       inherited createwnd;
        Flabel.paren:=self;
        Flabel.left:=5;
        Flabel.top:=5;
        Fedit.paren:=self;
        Fedit.left:=5;
        Fedit.top:=30;
        Fbutton.paren:=self;
        Fbutton.left:=5;
        Fbutton.top:=55
   end;
//构析
  destructor Tmyedit.destroy;
    begin
       Flabel.free;
       Fbutton.free;
       Fedit.free;
       inherited destroy;
    end;
end.