Como fazer uma classe ESPECIAL no Delphi 2005?

type
  TBDados = class(System.ComponentModel.Component)
  {$REGION ´Designer Managed Code´}
  strict private
    /// <summary>
    /// Required designer variable.
    /// </summary>
    Components: System.ComponentModel.Container;

    _Conn: Borland.Data.Provider.BdpConnection;
    spc_VerifyUser: Borland.Data.Provider.BdpCommand;
    /// <summary>
    /// Required method for Designer support - do not modify
    /// the contents of this method with the code editor.
    /// </summary>
    procedure InitializeComponent;
  {$ENDREGION}
  strict protected
    /// <summary>
    /// Clean up any resources being used.
    /// </summary>
    procedure Dispose(Disposing: Boolean); override;

  strict private
    FUserID: Integer;
    FUserName: String;
    FUserKey: String;
    FUserGrants: String;


  public

    function  get_Conn: Borland.Data.Provider.BdpConnection;
    function  get_UserID: Integer;
    procedure set_UserID(const Value: Integer);
    function  get_UserName: String;
    procedure set_UserName(const Value: String);
    function  get_UserKey: String;
    procedure set_UserKey(const Value: String);
    function  get_UserGrants: String;
    procedure set_UserGrants(const Value: String);

    constructor Create; overload;
    constructor Create(Container: System.ComponentModel.IContainer); overload;

    function  VerifyUser(User, Key: String; SetUser: Boolean): Integer;
    procedure ClearUser;

    property Conn: Borland.Data.Provider.BdpConnection read get_Conn;

    property UserID: Integer read get_UserID write set_UserID;
    property UserName: String read get_UserName write set_UserName;
    property UserKey: String read get_UserKey write set_UserKey;
    property UserGrants: String read get_UserGrants write set_UserGrants;
  end;

  function BDados: TBDados;

var
  BD: TBDados;