type TSTrProperty = class
function Create();
public
TrPr: TrPrUnitDecorator;
Height: real;
end;
function TSTrProperty.Create();
begin
{self.}TrPr := nil;
{self.}Height := 0;