[FlyInDream]

to NumLock:
Тогда разрешите я вас помучую:

Код:

uses Unit1;
...
var
  AMyPosition: TMyPosition;

моё приложение не видит этот тип, т.е. я создаю новое приложение, объявляю переменную типа TMyPosition, и финиш... Undeclared identifier: 'TMyPosition'.