Зависание программы в функции recv

function T_Socket.RecvData: String;
  var res: Integer;
  var i: Integer;

  begin
    if Connected=False then begin
       Error('нет соединения');
    end;

    Result:='';

    repeat
    res := recv(Sock, buff, SizeOf(buff)-1, 0);
    if res=SOCKET_ERROR then begin
       Error('Ошибка сокета');
       buff[1]:=#0;
    end else begin
       buff[res+1]:=#0;
    end;
    Result:=Result+String(pchar(@buff[1]));

    if EndOfLine='' then break;

    if pos(EndOfLine, Result)>0 then break;

    Until False;
  end;