Это базовый класс:
type TFigure = class function PrintVolume: ХЗ; virtual; end; function TFigure.PrintVolume: ХЗ; begin raise Exception.Create(''); end;
необходимо от него создать создать произвольные классы параллелепипед, пирамида, тетраэдр, шар со своими функциями печати объема.