type TImmovableObject = class(TVisualObject)
None.
constructor Create(TimeCreate: integer);
procedure setAbsPosition;