[Pilot_Red]

вообще эта ошибка может появлятся хоть из за чего, и в чем дело очень трудно понять...
могу предложить использовать вместо типа real, тип double или single..
или переменные объяви не в процедуре, а в начале модуля... мне иногда помогает