type //definition TSomeClass = class end;var SomeClass: TSomeClass;begin //initialization SomeClass := TSomeClass.Create; WriteLn(SomeClass.ClassName);end.