UDP发送数据：怎么发送浮点型的数值

UDP发送数据：如何发送浮点型的数值
TIdUDPBase.SendBuffer(AHost: string; const APort: Integer; const ABuffer : TIdBytes);

这里提供发送的都是byte

浮点型的值要如何发送。

谢谢！
[解决办法]

var
  Bufs : TIdBytes;
  n : Single;
  d : Double;
begin
  n := 10.12;  //单精度浮点数
  SetLength(Bufs , SizeOf(n));
  PSingle(Bufs)^ := n;
  IdUDPClient1.SendBuffer('192.168.1.2' , 100 , Bufs);


  d := 102.23; //双精度浮点数
  SetLength(Bufs , SizeOf(d));
  PDouble(Bufs)^ := d;
  IdUDPClient1.SendBuffer('192.168.1.2' , 100 , Bufs);

end;