Передавать данные через WinSock серверу 10 раз в секунду

void Socket()
{
  char buf[1019];  // На самом деле buf пустой, но будем считать что там что-то есть 
  const int iReqWinsockVer = 2;
  WSADATA wsaData;
 
  if (WSAStartup(iReqWinsockVer,&wsaData)==0)
  {
    Form1->Memo1->Lines->Add("Инициализация библиотеки сокета(Ws2_32.dll) удалась");
 
    SOCKET s;
    s = socket(AF_INET, SOCK_DGRAM, IPPROTO_UDP);
 
    if (s == INVALID_SOCKET)
         Form1->Memo1->Lines->Add("При создании сокета возникла ошибка: " + WSAGetLastError());
    else
         Form1->Memo1->Lines->Add("Создание сокета было успешным!");
 
    sockaddr_in sockAddr;
    sockAddr.sin_family = AF_INET;
 
    // Клиент:
    if(Form1->RadioButton2->Checked)
    {
       sockAddr.sin_port = htons(80);
       sockAddr.sin_addr.S_un.S_addr = inet_addr("169.254.128.135");
 
       // Здесь едет отправка данных и сразу выход, если убрать break, то будет передавать все время, но это не решает задачу  
       while(true)
       {
          // Отправляю данные
          sendto(s, buf, sizeof(buf), 0, (struct sockaddr *)&sockAddr, sizeof(sockAddr));
 
          break;
       }
     }
 
    // Сервер:
    else if(Form1->RadioButton1->Checked)
    {
      sockAddr.sin_port = htons(80);
      sockAddr.sin_addr.S_un.S_addr = INADDR_ANY;
 
      if (bind(s, (sockaddr*)(&sockAddr), sizeof(sockAddr))!=0)
         Form1->Memo1->Lines->Add("Связывание адреса с socket’ом не произошло");
      else
         Form1->Memo1->Lines->Add("Связывание адреса с socket’ом было успешным!");
 
      while(true)
      {
         sockaddr_in client_addr;
         int iSize = sizeof(client_addr);
 
         // Принимаю данные
         int ret = recvfrom(s, buf, sizeof(buf), 0, (struct sockaddr *)&client_addr, &iSize);
 
         if (ret != 0)
         {
             Form1->Memo1->Lines->Add("Данные были полученны успешно!");
             break;
         }
         else
             Form1->Memo1->Lines->Add("При получении данных возникла ошибка");
        }
     }
     closesocket(s);
 
     if (WSACleanup() == 0)
          Form1->Memo1->Lines->Add("Освобождение ресурсов WinSock завершилось успехом");
     else
          Form1->Memo1->Lines->Add("Освобождение ресурсов WinSock не удалось");
   }
   else
      Form1->Memo1->Lines->Add("Инициализация библиотеки сокета(Ws2_32.dll) не удалась");
}

// Здесь едет отправка данных и сразу выход, если убрать break, то будет передавать все время, но это не решает задачу  
       time_t start = time(NULL);
       time_t end = 0;
       while(true)
       {
          // Отправляю данные
          sendto(s, buf, sizeof(buf), 0, (struct sockaddr *)&sockAddr, sizeof(sockAddr));
          end = time(NULL);
          Sleep(100 - (end - start));
          end=start;
          break;
       }