Tform2 = class(tform)publicprocedure A; //需要实例调用class procedure B; //静态函数，不用实例调用end;varform2 ：tform2；调用时，form2.A；Tform2.B；注意B中不能有实例化的变量。
