SOCKET接收发送数据问题,

HEADER = record
  nTYpe : Byte;
end;FILEINFO = record
  head      : HEADER;
  zipFile   : array[0..511] of Byte;
  fileLen   : CARDINAL;
end;
{---------------------------- 数据发送} fStream := TFileStream.Create(OpenDialog1.FileName,fmOpenReadWrite or fmShareDenyWrite or fmShareDenyRead);
 fileInfo.fileLen:= fStream.Size;
 repeat
   nRead := fStream.Read(fileInfo.zipFIle ,512);
   send(clientSock[0],fileInfo,nRead,0);
 until nRead <> 512;
 fStream.Free;
我是服务器端发送文件,TFileStream.Read(fileInfo.zipFile,512)-将文件流读入RECORD中的zipFile然后发送;发送前检测包中的内容是正确的,
客户端接收时,包里的东东变了,zipFile内容不正确.我接收到得FILEINFO里的zipFile是不正确的.是不是文件流在RECORD中发送是不安全的?