如何使用buf?(40分)

我申请了一块50M的内存，希望把传递过来的东西依次写入这个缓存，
那位大虾知道该怎么写？

声明： Buf: array[1..512] of Byte;
使用参考BlockRead函数
转换为可视字符　InttoHex(Buf,2);

Buf: array[1..512] of Byte;

const
MaxSize=50*1024*1024;
var
bufchar;
outMark:boolean;
begin
try
getmem(buf,MaxSize);
outMark:=true;
while outMark do
begin
...
outMark:=recv(buf^,1024)=1;
...
end;
finally
freemem(buf,MaxSize);
end;
end;
//1次只能写入1024，多次写入怎么办？