接收端没有设置动态数组的长度。
var rec:array of real;  
begin
    SetLength(rec,1000);  
    ClientSocket1.Socket.Receivebuf(rec,1000);
end;