急！！请大虾帮忙看看程序错在那里？？

Question

下面程序里Tbnt不是已经继承的Tobject的构造器吗？
type
 Tbtn=class
  private
   Fleft:integer;
   Ftop:integer;
   Fwidth:integer;
   Fcaption:string;
   Fparent:TWinControl;
   procedure sleft(value:integer);
   procedure stop(value:integer);
   procedure swidth(value:integer);
   procedure scaption(value:string);
   procedure sparent(value:TWinControl);
  published
   property left:integer read Fleft write sleft;
   property top:integer read Ftop write stop;
   property width:integer read Fwidth write swidth;
   property caption:string read Fcaption write scaption;
   property Parent: TWinControl read FParent write sParent;
 end;procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
 bnt:Tbtn;
begin
 bnt:=Tbtn.Create(self);
 bnt.Parent:=self;
 bnt.Left:=x;
 bnt.Top:=y;
 bnt.Width:=bnt.Width+30;
 bnt.Caption:=format('bn at %d %d',[x,y]);
end;