创建的一个类如何读不了属性呢

创建的一个类怎么读不了属性呢？
TFin_Bud_Rate = class; //预算比例

  TFin_Bud_Rate = class(TObject)
  private
  FRate_Id:integer;
  FBUD_TYPE_ID:integer;// 预算类别ID
  FBUD_TYPE_CODE: string;// 类别编码
  FBUD_TYPE_NAME: string;// 类别名称
  FOBJECT_ID:integer;//对象ID(可以上费用明细 也可以是费用类别)
  FOBJECT_CODE: string;//对象编码(可以上费用明细 也可以是费用类别)
  FOBJECT_NAME: string;//对象名称 (可以上费用明细 也可以是费用类别)
  FORG_ID:integer;// 区域ID
  FORG_CODE: string;//区域编码
  FORG_NAME: string;// 区域名称
  FBud_Rate : Double;//预算比例
  FUsable: integer; //是否可用
  FNote: string; //备注
  FCreator: string; //创建人
  FCreate_Time: string; //创建时间
  FEntid:Integer;//所属组织ID
  FEntname:string;// 所属组织名称
  FSqlWhere: string; //条件语句
  FMaxSearchRltCmt: integer; //最大查询数
  protected

  public


  constructor create;
  destructor destroy;override;
  published
  property Rate_Id: integer read FRate_Id write FRate_Id;
  property BUD_TYPE_ID: integer read FBUD_TYPE_ID write FBUD_TYPE_ID;
  property BUD_TYPE_CODE: string read FBUD_TYPE_CODE write FBUD_TYPE_CODE;
  property BUD_TYPE_NAME: string read FBUD_TYPE_NAME write FBUD_TYPE_NAME;
  property OBJECT_ID: integer read FOBJECT_ID write FOBJECT_ID;
  property OBJECT_CODE: string read FOBJECT_CODE write FOBJECT_CODE;
  property OBJECT_NAME: string read FOBJECT_NAME write FOBJECT_NAME;
  property ORG_ID: integer read FORG_ID write FORG_ID;
  property ORG_CODE: string read FORG_CODE write FORG_CODE;
  property ORG_NAME: string read FORG_NAME write FORG_NAME;
  property Bud_Rate: Double read FBud_Rate write FBud_Rate;

  property Usable: integer read FUsable write FUsable;
  property Note: string read FNote write FNote;
  property Creator: string read FCreator write FCreator;
  property Create_Time: string read FCreate_Time write FCreate_Time;
  property Entname: string read FEntname write FEntname;
  property Entid: Integer read FEntid write FEntid;
  property SqlWhere: string read FSqlWhere write FSqlWhere;
  property MaxSearchRltCmt: integer read FMaxSearchRltCmt write FMaxSearchRltCmt;
  end;

constructor TFin_Bud_Rate.create;
begin

end;

destructor TFin_Bud_Rate.destroy;
begin

  inherited;
end;

//*****************************************************************8
procedure TClassPackagingForm.Button1Click(Sender: TObject);
var
  ObjTmp: TFin_Bud_Rate;
begin
  ObjTmp := TFin_Bud_Rate.create;

  try
  //ObjTmp.CarColor := 'yellow';
  ObjTmp.FBUD_TYPE_NAME := 'FBUD_TYPE_NAME';
  //如果状态大于1, 则审核按钮不可用
  if (GetPropInfo(ObjTmp.ClassInfo, 'FBUD_TYPE_NAME') <> nil) then
  begin
  mmPorterty.Lines.Add('FBUD_TYPE_NAME is extits')
  end
  else
  begin
  mmPorterty.Lines.Add('FBUD_TYPE_NAME is not extits')
  end;  

  mmPorterty.Lines.Add('FBUD_TYPE_NAME is: ' + ObjTmp.FBUD_TYPE_NAME);
  finally
  ObjTmp.Free;
  end;
end;

总是这一句：FBUD_TYPE_NAME is not extits

------解决方案--------------------
property BUD_TYPE_NAME: string read FBUD_TYPE_NAME write FBUD_TYPE_NAME;

把F去掉,BUD_TYPE_NAME
------解决方案--------------------
哥哥，按照你的代码，明明是该使用BUD_TYPE_NAME,