在线程中创建自定义类的实例时报 abstract error

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;