UDP协议传送记录实例(XE2) IdUDPClient1.SendBuffer(RawToBytes(Login,SizeOf(Login)));