Спасибо за модуль.
Что-то у меня всё равно не получается.
## Код:
```
MODULE ProbaTest; 
IMPORT CommStreams, Log, CommTCPAsync; 

PROCEDURE Test*; 
VAR 
   s : CommStreams.Stream; 
   as : CommTCPAsync.Stream;
   res : INTEGER; 
BEGIN (*  ya.ru - 87.250.251.8 *) 
   CommStreams.NewStream("CommTCPAsync", "", "ya.ru:80", s, res); 
   IF s.IsConnected() THEN 
      as := s(CommTCPAsync.Stream);
      REPEAT UNTIL as.HasConnected();
      Log.String("connected"); 
   ELSE 
      Log.String("Not connected"); 
   END 
END Test; 

END ProbaTest.
```

Теперь ещё хуже. Входит в бесконечный цикл REPEAT UNTIL и всё. Такое ощущение, что вообще не может приконнектиться. При том, что ya.ru  - живее всех живых... Запускал локальный web-сервер, пытался приконнектиться к localhost - та же песня.
Модуль точно рабочий?
Или я просто не умею его готовить?