Класс графических объектов с границей

Класс графических объектов с границей. Базовый класс - ObjectWPF.
Свойства класса BoundedObjectWPF
property BorderColor: GColor;
        Цвет границы графического объекта
property BorderWidth: real;
        Ширина границы графического объекта
property Color: GColor;
        Цвет графического объекта
Методы класса BoundedObjectWPF
function RemoveBorder: BoundedObjectWPF;
        Декоратор выключения границы объекта
function SetBorder(w: real; c: GColor): BoundedObjectWPF;
        Декоратор включения границы объекта
function SetBorder(w: real := 1): BoundedObjectWPF;
        Декоратор включения границы объекта
Свойства базового класса ObjectWPF
property Bottom: real;
        Отступ низа графического объекта от верхнего края окна
property Bounds: GRect;
        Прямоугольник графического объекта
property Center: Point;
        Центр графического объекта
property CenterBottom: Point;
        Центральная нижняя точка графического объекта
property CenterTop: Point;
        Центральная верхняя точка графического объекта
property Color: GColor;
        Цвет графического объекта
property Direction: (real,real);
        Направление движения. Используется методом Move
property FontColor: Color;
        Цвет шрифта текста внутри графического объекта
property FontName: string;
        Имя шрифта текста внутри графического объекта
property FontSize: real;
        Размер шрифта текста внутри графического объекта
property Height: real;
        Высота графического объекта
property Left: real;
        Отступ графического объекта от левого края окна
property LeftBottom: Point;
        Левый нижний угол графического объекта
property LeftTop: Point;
        Левый верхний угол графического объекта
property Number: integer;
        Целое число, выводимое в центре графического объекта. Используется свойство Text
property RealNumber: real;
        Вещественное число, выводимое в центре графического объекта. Используется свойство Text
property Right: real;
        Отступ правтого края графического объекта от левого края окна
property RightBottom: Point;
        Правый нижний угол графического объекта
property RightTop: Point;
        Правый верхний угол графического объекта
property RotateAngle: real;
        Угол поворота графического объекта (по часовой стрелке)
property ScaledHeight: real;
        Отмасштабированная высота графического объекта
property ScaledSize: GSize;
        Отмасштабированный размер графического объекта
property ScaledWidth: real;
        Отмасштабированная ширина графического объекта
property ScaleFactor: real;
        Множитель масштабирования объекта
property Size: GSize;
        Размер графического объекта
property Text: string;
        Текст внутри графического объекта
property TextAlignment: Alignment;
        Выравнивание текста внутри графического объекта
property Top: real;
        Отступ графического объекта от верхнего края окна
property Visible: boolean;
        Видимость графического объекта
property Width: real;
        Ширина графического объекта
Методы базового класса ObjectWPF
procedure AnimMoveBy(a,b: real; sec: real := 1);
        Анимирует перемещение графического объекта на вектор (a,b) в течение sec секунд
procedure Move; virtual;
        Перемещает графический объект на вектор (dx,dy)
procedure MoveBy(a,b: real);
        Перемещает графический объект на вектор (a,b)
procedure MoveBy(v: (real,real));
        Перемещает графический объект на вектор (a,b)
procedure MoveForward(r: real);
        Перемещает графический объект в направлении RotateAngle (вверх при RotateAngle=0)
procedure MoveTime(dt: real); virtual;
        Перемещает графический объект вдоль вектора Direction со скоростью Velocity за время dt
procedure MoveTo(x,y: real);
        Перемещает левый верхний угол графического объекта к точке (x,y)
procedure Rotate(a: real);
        Поворачивает графический объект по часовой стрелке на угол a
procedure RotateToPoint(x,y: real);
        Поворачивает графический объект так чтобы он "смотрел" на точку (x,y)
procedure Scale(r: real);
        Масштабирует графический объект в r раз относительно текущего размера