Навскидку
На вход функции должен подаваться не размер, а указатель на размер.SysSockAccept(hSocket, ADR(sa), SIZEOF(sa), ADR(result));
Посмотрите это видео:
https://www.youtube.com/watch?v=ThVLXygHnnU&t=22s
И начните с построчного копипаста кода из него.
Или есть другой вариант - высокоуровневая CAA Net Base Services, где TCP-сервер создается с помощью пары ФБ.
В версии 3.5.4.0 в состав библиотеки входит pdf с описанием и примерами (в более поздних версиях библиотеки его потеряли).




Ответить с цитированием