OutData = new unsigned char [12];
		OutData[0] = 1;
		OutData[1] = StrToInt(ip.SubString(1,3));
		OutData[2] = StrToInt(ip.SubString(5,3));
		......
		OutData[9] = HexToInt(mac.SubString(13,2));
		OutData[10] = HexToInt(mac.SubString(16,2));
		OutData[11] = PortOut;
		UDPPortToReseive->Active = false;

		UDPPortToSent->Active = false;
		UDPPortToSent->RemoteHost = ip;
		UDPPortToSent->RemotePort = PortOut;
		UDPPortToSent->Active = true;
		UDPPortToSent->SetDataToSend(OutData, 12);//   Send(h);