Вот можно открыть сокет так:

Код:

CASE bState OF
    05: // Формируем строку для отправки
          // Тут мы уже разобрались, оказывается надо строку делать с длинной в 10к символов.
        bState := 10;
    10: // создаем TCP-клиента
        fbTcpClient(xEnable:=TRUE, udiTimeOut:=1000, ipAddr:=stIpServer, uiPort:=uiPortServer);
        IF fbTcpClient.xActive THEN
            bState := 20;
        ELSIF bTries > 10 OR fbTcpClient.xError THEN
            bError := 10; // код шага, где произошла ошибка
            xError := TRUE; // флаг ошибки
            bState := 50; // Выход из автомата шагов
        END_IF
    20: ... // Другие шаги, через неделю до них дойдем.