通过Socket传送流？？？ClientSocket And ServerSocket的用法(200分)

  MemoryStream.Position := 0;
  SS.Socket.Connections[0].SendStream(MemoryStream);

procedure TForm1.ClientSocketRead(Sender: TObject; Socket: TCustomWinSocket);
var
  RBuffer: array[0..10000] of byte; {设置接收缓冲区}
  RLength: integer;
begin
    RLength := socket.ReceiveLength; {读出包长度}
    Socket.ReceiveBuf(RBuffer, RLength); {接收数据包并读入缓冲区内}
    MStream.Write(RBuffer, RLength); {将数据写入流中}
    if MStream.Size >= MSize then {如果流长度大于需接收的字节数，则接收完毕}  
    //MSize 流的长度，事先由程序取得
    begin
      MStream.Position := 0;
      Image1.Picture.Bitmap.LoadFromStream(MStream);
      button2.Caption:=inttostr(MStream.Size);
//      MStream.Clear;
//      MSize := 0;
    end;
end;