[Bargest]

...

Код:

while (not дошло) do
begin
  дошло := перечитать_сообщение(#2);
end;

Еще раз спрашиваю: где объявление функций из библиотеки? Не то, которое не работает, а то, которое в рабочем сишном коде.