線上程中建立自訂類的執行個體時報 abstract error

線上程中建立自訂類的執行個體時報 abstract error VCL組件開發及應用
http://www.delphi2007.net/DelphiVCL/html/delphi_20061225124650126.html
Tobj   =   class(Tobject)  
  private  
      fname:string;  
      procedure   setname;  
  public  
      property   name   read   fname   write   setname   ;    
  end;  
   
  tthreadprocess   =   class(tthread)  
  private  
      obj:tobj;  
  protected  
      procedure   execute   ;  
  end;  
   
  procedure   tthreadprocess.execute;  
  begin  
      obj   :=   Tobj.create       //這句報錯   "abstract   error   "    
  end;  
   
  why??

tthreadprocess   =   class(tthread)  
  private  
      obj:tobj;  
  protected  
      procedure   execute   ;override;  
  end;

procedure   Execute;   virtual;   abstract;  
   
  這是個抽象的方法，要重載。

execute   過程是   override   的，打上去的的時候漏掉的

Tobj   =   class(Tobject)  
  private  
      fname:string;  
      procedure   setname;  
  public  
      property   name   read   fname   write   setname   ;    
  end;  
  --------------------------------------------  
  TObj   =   class  
  private  
      FName:   string;  
      procedure   SetName(const   Value:   string);     //這裡確認是否是這樣寫  
  public  
      property   Name:   string   read   FName   write   SetName   //你少了:String  
  end;