[Tiffany]

Забыл еще в VAR добавить

x, y: integer;
keyCode: integer;