repeat
 
  Res := recv(Sock, Buf, size, 0);
  if Res = SOCKET_ERROR then Exit;
  if Res > 0 then Source := Source + Copy(Buf, 0, Res);
  until Res <= size;

 size := сколько нужно считать
 fsize:=0; // типа сколько уже считано
 repeat
   Res := recv(Sock, Buf, size, 0);
   if Res = SOCKET_ERROR then break; // именно break потому как нужно выйти из цикла а не завершить всю обработку
   if Res > 0 then 
   begin
    fsize := fsize + Res; // увеличим счетчик того сколько мы всего считали
    Source := Source + Copy(Buf, 0, Res);
   end else break; 
  until fsize >= size; // типа читать пока данных меньше чем нами указано.