Запись Record в свойство Tag. Delphi

Delphi Гуру помогите пожалуйста с использованием свойства Tag компонентов.


type
TTagXY = record
X: integer;
Y: integer;
end;

var XY:TTagXY;
begin
XY.X := 0;
XY.Y := 0;
TComponent.Tag := Integer(Pointer(XY));
end;

//Использую так
X := TTagXY(Pointer(TComponent.Tag)).X; //[DCC Error] Game.pas(150): E2089 Invalid typecast
Y := TTagXY(Pointer(TComponent.Tag)).Y; //[DCC Error] Game.pas(150): E2089 Invalid typecast

На основе инфы от сюда: http://codeguide.ru/ispolzovanie-svoistva-tag-v-delphi.html

В последних двух строках Delphi XE2 выдает ошибку [DCC Error] Game.pas(150): E2089 Invalid typecast

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.