Отправка файлов через IdUDPClient/IdUDPServer

void __fastcall TForm1::Button6Click(TObject *Sender)
{
        void *P;
    MS->LoadFromFile(text[1]); // text[1] хранит путь к файлу// Загружаем файл в буфер
    Status->Lines->Add("Файлы для отправки: ");
    Status->Lines->Add("file#"+text[1]+"#"+IntToStr(MS->Size)+" байт#");
    MS->Position = 0; // Переводим каретку в начало файла
    IdUDPClient1->SendBuffer(P, MS->Size); // отправляем поток
    MS->Clear();
}

void __fastcall TForm1::IdUDPServer3UDPRead(TIdUDPListenerThread *AThread, TBytes AData,
          TIdSocketHandle *ABinding)
{
 std::auto_ptr<TBytesStream> bs3(new TBytesStream(AData));
 if (name)
     {
       Status->Lines->Add("Server[3]::        Начинаю прием заголовка...");
       TStringStream * SS = new TStringStream();
       SS->CopyFrom(bs3.get(), 0);
       ShowMessage(SS->DataString);
       SaveDialog1->FileName = SS->DataString;  //присваиваем имя принимаемого файла
       delete SS;
       key=true;
       name=false;
     }
     if (!name)
     {
        Status->Lines->Add("Server[3]::        Начинаю прием файлов...");
        TStringStream * SS = new TStringStream();
        SS->CopyFrom(bs3.get(), 0);
        if (SS->DataString!="EndFile")  //если не конец файла то записываем все в поток
        {
          SSS->CopyFrom(bs3.get(), 0);
          delete SS;
        }
        else        //если файл закончился, то сохраняем его
        {
            Status->Lines->Add("Server[3]::        Получили конец файла");
          if (SaveDialog1->Execute())
          {
            SSS->SaveToFile(SaveDialog1->FileName);
            name=true;
            key=false;
            SSS->Clear();
          }
        }
     }
 //  if (key) name=false;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button3Click(TObject *Sender)
{   int k=1;
    if(OpenDialog1->Execute())
 {
   //IdUDPClient1->Host=Edit1->Text;
   char buf[8192];    //типа 8192 - размеб буфера передачи по умолчанию
   TMemoryStream *ms = new TMemoryStream();
   Status->Lines->Add("Client[3]::        Шлем заголовок файла");
   ms->LoadFromFile(OpenDialog1->FileName);  //выбираем нужный файл
   IdUDPClient3->Send(ExtractFileName(OpenDialog1->FileName)); //посылаем имя файла
   ms->Position = 0;
 
   while (ms->Position < ms->Size)
   {
 
      k++;
     DWORD size = (ms->Size - ms->Position > 8192) ? 8192 : ms->Size - ms->Position;
     ms->ReadBuffer(&buf, size);
     TByteDynArray buff;
     buff.Length = 0;
     buff = RawToBytes(&buf, sizeof(buf));
     IdUDPClient3->SendBuffer(buff);  // отправляем поток
     Application->ProcessMessages();
   }
   Status->Lines->Add("Client[3]::        Послано");
   Status->Lines->Add(k);
   delete ms;
   Status->Lines->Add("Client[3]::        Послали конец файла");
   IdUDPClient3->Send("EndFile");  //индикатор конца файла
 }
 
}
//---------------------------------------------------------------------------

while (ms->Position < ms->Size)
   {
 
      k++;
     DWORD size = (ms->Size - ms->Position > 8192) ? 8192 : ms->Size - ms->Position;
     ms->ReadBuffer(&buf, size);
     TByteDynArray buff;
     buff.Length = 0;
     buff = RawToBytes(&buf, sizeof(buf));
     IdUDPClient3->SendBuffer(buff);  // отправляем поток
     Application->ProcessMessages();
   }

while (ms->Position < ms->Size)
   {
 
      k++;
     DWORD size = (ms->Size - ms->Position > 8192) ? 8192 : ms->Size - ms->Position;
     ms->ReadBuffer(&buf, size);
     TByteDynArray buff;
     buff.Length = 0;
     buff = RawToBytes(&buf, sizeof(buf));
     IdUDPClient3->SendBuffer(buff);  // отправляем поток
     Application->ProcessMessages();
   }