TSizeD

type TSizeD = record

public

  cx: Double;

  cy: Double;

  function average;

  property Width: Double; [rw]

  property Height: Double; [rw]

end;