Ошибка в IOCtlSocket

[misha_turist]

Доброго времени суток.
Есть код

Код: Выделить всё

program Chat_Server;

uses ..., winsock, windows, sysutils;

const
 my_port = 6060;
 max_connect_count = 64{SoMaxConn};


var Sockets:array[0 .. max_connect_count-1] of TSocket; // Њ ббЁў б®ЄҐв®ў
    Arg : u_long;
....
begin
....
        Arg:=1;
        IOCtlSocket(Sockets[0], FIONBIO[b]<Место 1>[/b], Arg);
        Sockets[connect_count] := Accept(Sockets[0],@Addr,@Len);
        Arg:=0;
        IOCtlSocket(Sockets[0], FIONBIO[b]<Место 2>[/b], Arg);
...
end.

В месте 1 и в месте 2 получаю ошибку "main3.pas(107,40) Error: range check error while evaluating constants" и "main3.pas(110,40) Error: range check error while evaluating constants" соответственно.

Подскажие пожалуста в чём может быть дело и как решить проблему.

Зарание спасибо!

[misha_turist]

Было решено заменой констант на коды (какие не помню), но потом от функции IOCtlSocket удалось и вовсе отказаться, поэтому правильно ли работает код сказать не могу (но то что он хотяб компилируется это точно).

[Art!P]

Решил откопать пост. Решилось когда отключил в Параметры проекта - параметры компилятора - генерация кода: убрал галочки проверки диапазона и вызовов методов.