向同一网段内广播文件，请给出例子

我想用udp向局域网内的所有主机广播一个超大文件。
udp协议可以实现，将client ip设为广播地址即可。
但因本人初用delphi，各位能否给出一个实例：(以下可供参考)
1、将被广播文件作为TFileStream类型
2、用TSocket传送Tfilestream但要将大文件拆分
3、client将收到的packet组合成原始文件请各位大虾，给出server和client的程序实例