sаmakacd, тебе же чистым русским английским языком говорят - несовместимые типы TData и Real. Т.е. ты где-то вместо TData подсовываешь Real, или наоборот.
Единственным местом, где у тебя фигурирует Real - выход функции ReadReal. Значит, функция ToInteger хочет на вход TData. Проверим себя: найдём описание функции ToInteger - оно в файле Functions.pas:
PData - это просто указатель на TData, так что гипотеза оказалась верной.

На вопрос "а как правильно" - ответь сам, ответов минимум два.