type
  TSize = class
  public
    Width, Height: Integer;
  end;

  TSizeHelper = class helper for TSize
  private
    function GetArea: Integer;
  public
    //computed property from the helper
    property Area: Integer read GetArea;
  end;

function TSizeHelper.GetArea: Integer;
begin
  Result := Width * Height;
end;

var
  Size: TSize;
begin
  Size := TSize.Create;
  Size.Width := 4;
  Size.Height := 5;

  WriteLn('area is ', Size.Area);
  //area is 20
end.