为何这个类语法通不过？高手指教！

Question

UserStatusMsgS2CEnt = class
   private
      // 发生时间
      FHappendTime : TDateTime;      // 来自的用户
      FFromUser : String;      // 状态
      FStatus : String;
      procedure SetHappendTime();
      function GetHappendTime():TDateTime;
   public   published
       // 发生时间
       property HappendTime : TDateTime Read SetHappendTime Write GetHappendTime;     ///////这一行老通不过，错误提示为[Error] MessageEntity.pas(154): Incompatible types      // 来自的用户
       property FromUser : String read FFromUser write FFromUser;      // 状态
       property Status : String read FStatus write FStatus;
   end;

Answer 1

procedure SetHappendTime(Value: TDateTime);
      function GetHappendTime: TDateTime;property HappendTime : TDateTime Read GetHappendTime Write SetHappendTime;  ————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————

Answer 2

感谢，我现才发现错在哪
为GetHappendTime和SetHappendTime放倒了！