Функция recv (Winsock)

[YYYYY]

Здравствуйте. Помогите,пожалуйста, разобраться...

var
 sBuff : array [0..5199] of AnsiChar;
 p:String;
 stop:Integer;
begin
   repeat
    FillChar(sBuff, SizeOf(sBuff), 0);
    stop:=Recv(s,sBuff,SizeOf(sBuff),0);
    TestFuncError(stop, 'Ошибка выхода');
    p:=sBuff;
      ...
   until stop=0;
end;

Всё вроде бы работает, но на второй запрос сервер не отвечает НИ ЧЕМ!
Если изменить until stop<5200 ,то всё работает хорошо, но меня так не устраивает(Dial-up и частые сбои связи:т.е. stop может быть <5200, а данные получены не все).Хотелось бы делать контрольный Recv до получения stop=0.
Помогите, пожалуйста.