Type
TAnchorKind=(akTop,akLeft,akRight,akBottom);
TAnchors=set of TAnchorKind;
Var
Anchors:T Anchors;

Системы координат
Type
Tpoint=packed record
X:Longint;
Y:Longint;
End;
Методы, позволяющие преобразовать локальные координаты родителя, в глобальные координаты дисплея
Function ClientToScreen(const Point:TPoint):TPoint;
Function ScreenToClient (const Point:TPoint):TPoint;
Возвращает глобальные (локальные) координаты точки заданные локальными (глобальными) координатами, содержащимися в параметре Point.