type TSTrProperty = class
    function Create();
public
    TrPr: TrPrUnitDecorator;
    Height: real;
end;

function TSTrProperty.Create();
begin
    {self.}TrPr := nil;
    {self.}Height := 0;
end;