Большое спасибо за подсказки, поправил почти все, выложил новый вариант в первом сообщении. Проверилдействительно получается параллельно все скачивать. Но, пришлось убрать спрашивалку при распаковке, может плохого ничего и нет в этом.

Не успел поправить на случай совпадения длины сообщения с 1000.
## Код:
```
IF i = 1000 THEN
   NEW(r.buf, l);
ELSE
   r.ready := TRUE;
```

А также не получилось последнее, поскольку res не имеет 0X в конце, на него NewFromString   ругается.
## Код:
```
res := Load(url);
t := TextModels.dir.NewFromString(res^);
```
Надо теперь добавить будет разные варианты на случай обрыва связи.