помехи в отправки звука

[RODNOC]

помогите плиз у меня что то не то я сделал прогу который отправлять клиент звук в сервер принимает но почему то в лини есть не кторий шуми

код клиента

procedure TForm1.ACMIn1Data(Sender: TACMComponent; aDataPtr: Pointer;
  aDataSize: Cardinal);
  var
   j, Size: Integer;
   Buf: Pointer;
begin
 { size:=aDataSize;
  GetMem(buf, size);
  buf:=aDataPtr;
  SafeSend(ClientSocket1.Socket, buf^, Size);
  FreeMem(buf,size); } 
 
ClientSocket1.Socket.SendBuf(aDataPtr^,aDataSize);

end;

код сервера

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
  Size: Integer;
  buf: Pointer;
begin

   Size:= Socket.ReceiveLength;
   GetMem(Buf, size);
   socket.ReceiveBuf(Buf^, Size);
   ACMOut1.PlayBack(Buf,size);
   FreeMem(Buf,size);

end;