[Yegor]

А если так?

Len:=recv(Socket,DataB[0],Size,0);

Хотя зачем то же было сделано по 1 байту. Я так понял эта функция пытаеться считать не больше size байт с сокета но если данных будет меньше то цикл завершиться раньше:

if Len<=0 then Exit;