[Grabber2006]

Идея реализации:

Код:

const formpositionx; {расположение по горизонтали - константа}

form.x changed event; {событие изменения оси x}

event handler (var x) {обработчик события}
  if x<>formpositionx then x := formpositionx;

PS: Язык выдуманный (больше похож на Паскаль)