Код:
1. ct:=(CS.Socket.ReceiveLength div 4)div 768;
2. SetLength(Adm,ct);
3. CS.Socket.ReceiveBuf(Adm[0],CS.Socket.ReceiveLength);
1. переменная ct принимает значение равное ReceiveLength / 3072
2. массиву Adm назначается этот размер
3. из сокета запрашиваются данные в массив Adm с максимальным размером равным ReceiveLength, т.е. в 3072 раза больше, чем сам массив