unit StudentObj;
interface
uses
  Messages,SysUtils,Classes,StdCtrls,dbtables,Dialogs,contnrs;
type
  TStudent = Class(TObject)
  private
    fSTID : string;
    fSTName : string;
    fSTBirthday : TDateTime;
    fSTAge : integer;
    procedure SetID(Value : string);
    procedure SetName(Value : string);
    procedure SetBirthday(Value : TDateTime);
    procedure SetAge(Value : integer);      public
    constructor Create;
    destructor Destroy;override;      published
    property STID : string read fSTID write SetID;
    property STName : string read fSTName write SetName;
    property STBirthday : TDateTime read fSTBirthday write SetBirthday;
    property STAge : integer read fSTAge write SetAge;
  end;
implementation
{ TStudent }
constructor TStudent.Create;
begin
  inherited Create;
end;
destructor TStudent.Destroy;
begin
  inherited Destroy;
end;
procedure TStudent.SetAge(Value: integer);
begin
  fSTAge := Value;
end;
procedure TStudent.SetBirthday(Value: TDateTime);
begin
  fSTBirthday := Value;
end;
procedure TStudent.SetID(Value: string);
begin
  fSTID := Value;
end;
procedure TStudent.SetName(Value: string);
begin
  fSTName := Value;
end;
end.

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StudentObj,typinfo;
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
var
  MyStudent : TStudent;
  PropInfo: PPropInfo;
begin
   MyStudent := TStudent.Create;
   PropInfo := GetPropInfo(MyStudent.ClassInfo,'STID');
   if PropInfo<>nil then
   begin
     showmessage('True');
   end else
   begin
     showmessage('False');
   end;
end;
end.