ServerSocket и ClientSocket при работе с данными реального времени

private:    // User declarations
    UnicodeString interval;

__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
//Устанавливаесм интервал
this->interval = "100";
//Порт прослушивание
this->Server->DefaultPort = 6590;
//и запускаем сервер
this->Server->Active = True;
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
//Здесь мы устанавливаем интервал запросов для клиента,
//то есть с какой переодичн. клиент будет посылать запросы на получение инфомации
this->interval = this->Edit1->Text;
}

void __fastcall TForm1::ServerConnect(TIdContext *AContext)
{
//У TCPServer есть такое событие, которое срабатывает когда происходит подключение
//нового TCPКлиента.
//Таким образом мы получаем IP адресс только что подключенного клиента
this->Memo1->Lines->Add("Connected User:"+AContext->Connection->Socket->Binding->IP);
//при тестировании на локальной машине, не пугайся что у всех клиентов будет один и тот же IP
//сам Indy будет их различать, так как для каждого нового подключения создается новый поток
}
 
void __fastcall TForm1::ServerDisconnect(TIdContext *AContext)
{
//Так же как OnConnect, только при отключении пользователя.
this->Memo1->Lines->Add("User Disconnect:"+AContext->Connection->Socket->Binding->IP);
}

void __fastcall TForm1::ServerExecute(TIdContext *AContext)
{
//Данное событие срабатывает когда сервер получает какое либо сообщение от клиента
//тут мы их и будет обрабатывать.
//для удобства
TIdIOHandler *a = AContext->Connection->IOHandler;
//Создадим переменную для временного хранения запроса
UnicodeString res = a->ReadLn(enUTF8);
//Так как от клиента может придти два вида запроса(либо get либо результат int)
//так и будем их обраатывать
if (res == "get")
{
    //если запрос на получение данных, то отправляем ему ответ в виде
    // "твое число" ИНТЕРВАЛ
    a->WriteLn((UnicodeString)Random(10)+" "+this->interval,enUTF8);
}else{
    //Если же нет, то есть пришло например число
    //то используем его по своему усмотрению
    this->Memo1->Lines->Add("new item has getted: "+res);
}
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
//Здесь мы устанавливаем имя хоста, тот адресс или имя куда будем подключаться
this->Client->Host = "127.0.0.1";
//Так же порт
this->Client->Port = 6590;
//Соответственно это можно сделать например через Edit и порт и хост
 
//Вообще лучше все делать через try для обработки ошибок и исключений, даже в общем виде catch(...)
try
{
    //и так, сначала мы задали свойства, теперь подключаемся
    //у клиента есть свойство connected() проверяет, подключен он в данный момент или нет, тоже используется
    this->Client->Connect();
    //после того как подключаемся, запускаем два таймера
    this->Timer1->Enabled = True;
    this->Timer2->Enabled = True;
}catch(...)
{
    //Если какая либо ошибка тут возникнет, при подключении
    Application->MessageBoxA(L"Не удалось подключиться",L"Внимание",MB_ICONWARNING|MB_OK);
}
}

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
//Пеквый таймер у нас отвечает за получение сообщений с сервера (от 0 до 9)
//Это для удобства
TIdIOHandler *a = this->Client->IOHandler;
//теперь мы отправляем серверу сообщение, что нам нужно число
a->WriteLn("get",enUTF8);
//Создаем TStringList
TStringList *l = new TStringList();
//Данное свойство TStringList позволяет разделить строку на массив
//что нам и нужно так как ответ от сервера у нас состоит из двух частей
//само число и через пробел новый интервал
l->DelimitedText = a->ReadLn(enUTF8);
//Устанавливаем таймеру новый интерва, или как был раньше
this->Timer1->Interval = l->Strings[1].ToInt();
//тут мы выводим само число в Memo,
//здесь уже на твое усмотрение ты его используешь, но оно в текстовом виде.
this->Memo1->Lines->Add("Getted From Server: "+l->Strings[0]);
//Освобождаем память от TStringList
delete l;
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer2Timer(TObject *Sender)
{
//Второй таймер все просто, тут уже мы отправляем сообщение серверу
TIdIOHandler *a = this->Client->IOHandler;
a->WriteLn((UnicodeString)Random(100),enUTF8);
}

a->ReadLn(КОДИРОВАКА);
a->WriteLn(ТЕКСТ,КОДИРОВКА);

    a->WriteLn((UnicodeString)Random(100), enUTF8);