Да он пытается присвоить, точно:

ToInteger(Data):= 1 + ToInteger(Data);

Но я не знаю что надо сделать.
------------ Дoбавленo в 17.32:
Dilma, покажите мне, как надо было записать этот примитивный пример.
Мне надо хоть с чего-то работающего начать. Пока, у меня, даже это не работает.
------------ Дoбавленo в 18.14:
Хелп! Мне нужны азы!
Как обьявить перемнную в, функции делфи, с помощью FTCG, до тела begin end; ?