类类型

类声明

Type
  类名=Class（父类名）
    域
    属性
    方法
End;
--------------------------------------------例如
Type
  Tperson=class(Tobject)
  Name:String;
  Age:integer;
  Addr:String;
   Procedure SetAge(Value:integer);
   Function GetAge:integer;
End；