paket:=MemStream.Size div 8192; for i:=1 to paket do IdUDPClient1.SendBuffer(MemStream.Memory^,paket);