ok_abstract_sealed
type TSealedClass = class sealed(TObject)
description of TSealedClass
TSealedClass
var AVariable: integer;
procedure AProcedure;
description of AVariable
AVariable
description of AProcedure
AProcedure