Проверьте модуль SF.

[PeerGynt]

unit SF;
...
function RlnI3 := ReadInteger3;
...
function RlnI4 := ReadInteger4;
...

должно быть ReadlnInteger3 и ReadlnInteger4 соответственно. я понимаю, что это не так критично как еcли бы было function RI3 := ReadlnInteger3; , но все таки порядок должен быть.

[Admin]

Спасибо - исправили