type className = class([BaseClass1[,BaseClass2,…]])
[memberList]
end;

说明：
Type说明要声明一个类型，Class表示要声明一个类类型。
className 是要声明的你自己定义的类类型的名字，可以是任何有效标志符.
BaseClass1,BaseClass2,… 可选，表示要继承的父类型，可以是0个、1个或多个,如果是多个其中用逗号分割.如果此参数为空，可以省略class后面的小括号
memberList 声明类的各成员，也就是它的字段、方法和属性。可选.

注：
一个Type …End;只能声明一个类类型；
即使memberList为空也不能省略end;

完整示例：

Type Person = Class
  //字段
  name;

  //方法
  function SetName(newName);
  Begin
    name:=newName;
  end;

  // 方法
  Function DisplayName();
  begin

writeln(name);
  end;

  //属性
  Property theName read name write name;
End;

以上代码包括了一个完整类类型的声明：
声明了一个Person的类类型，也为Person类型声明了下面的成员：
字段：Name
方法：SetName 和 DisplayName
属性：theName