TTcpClient与TTcpServer实现文件高效传输

用TTcpClient和TTcpServer进行文件的传输
客户端：

定义了一个常量：

const BLOCK_SIZE = 1024;//把文件分开来传，每一次传送1024个字节

然后在Form上放一个TTcpClient和一个按钮，为按钮的点击写处理过程：

procedure TForm1.Button1Click(Sender: TObject);
var
  sFileFullName, sFileName : string; //带路径的文件名， 文件名
  iFileLen     : LongInt;  //文件大小
  sMsg         : string;  //接收到的消息
  i, cyc       : Integer; //循环传送次数
  FileStem     : TMemoryStream; //文件数据
  PBuf         : Pointer;
  acBlockSize, tmpSize, LastBlockSize : Integer; //实际读取的数据大小 ,从Stream中际读取的大小，最后一个数据块的大小
begin
  if dlgOpen1.Execute then
  begin
    sFileFullName := dlgOpen1.FileName;
  end;
  if sFileFullName = '' then
    Exit;
  sFileName := ExtractFileName(sFileFullName);  //从带路径的文件名中提取文件名
  FileStem := TMemoryStream.Create;
  try
    FileStem.LoadFromFile(sFileFullName);
    iFileLen := FileStem.Size;

    sMsg := sFileName + '^' + IntToStr(iFileLen);   //拼装消息：文件名+^+文件大小
    TcpClient1.RemoteHost := edt1.Text;   //从Edit中取服务器地址
    TcpClient1.RemotePort := '32765';    //要连接的端口
    TcpClient1.Open;     //连接服务器
    if TcpClient1.Connected then
    begin
      with TcpClient1 do
      begin
        Sendln(sMsg);    //发送拼装好的消息
        sMsg := Receiveln(CRLF);
        if iFileLen mod BLOCK_SIZE = 0 then
          cyc := iFileLen div BLOCK_SIZE     //把文件分块进行传输，如果文件大小能被定义好的BLOCK_SIZE整除，就循环iFileLen 除以 BLOCK_SIZE那么多次就行了
        else
          cyc := iFileLen div BLOCK_SIZE + 1; //把文件分块进行传输，如果文件大小不能被定义好的BLOCK_SIZE整除，要多传一次，把剩下的数据块传完
        if sMsg = 'OK' then     //服务器已经准备好，下面开始发送数据
        begin
          GetMem(PBuf,BLOCK_SIZE);  //分配内存
          try
            for i := 1 to cyc do
            begin
              if i = cyc then
              begin
                LastBlockSize := iFileLen - FileStem.Position; //如果已经传到最后一块了,计算好最后一块的大小
                tmpSize := FileStem.Read(PBuf^,LastBlockSize);
                acBlockSize := SendBuf(PBuf^,LastBlockSize);
              end
              else
              begin
                tmpSize := FileStem.Read(PBuf^,BLOCK_SIZE);   //发送正常的数据块
                acBlockSize := SendBuf(PBuf^,BLOCK_SIZE);