delphi中类怎么声明和实例化?//类声明typeTClassname=class(TObject)privatefunctionf1publicfunctionf2end实例化varAc:TClassnamebeginAc:=TClassname.createend