跪求一个在delphi下的，windows api的udp的实例代码

跪求一个在delphi下的，windows api的udp的实例代码，简单点就行。大体就一下几个流程就行接收端：1. 加载套接字库WSAStartup()；2. 创建Socket，使用函数Socket();3. 绑定到端口 bind() 将一个本地地址和一个套接字关联起来这里需要一个地址结构体 4. 接收recvrom（）5. 发送sendto()6. 当通信结束时，需要关闭用于通信的socket，closesocket释放该资源  当所有请求处理完后，需要关闭用于监听的socket，并调用WSACleanup()发送端：1. 加载套接字库WSAStartup()；2. 创建Socket，使用函数Socket();3. 发送sendto()4. 接收recvrom()5. 当通信结束时，需要关闭用于通信的socket，closesocket释放该资源  当所有请求处理完后，需要关闭用于监听的socket，并调用WSACleanup()