- Запускайте в отдельном потоке и ждите когда сервер даст CONNECT, если не дал за какоето время - убиваем поток.if OPCServerV20.ServerState <> 1 then OPCServerV20.Connect('CoDeSys.OPC.02',OPCServerV20 .ServerNode).
Здесь я это сделал для опроса порта
http://www.owen.ru/forum/showthread.php?t=10668
Если без отдельных потоков - то при каждом кратковременном пропадении связи, все виснет намертво.
И не забывайте про паузы в цыклах потоков.




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