RAD Studio трансляция в порт.

Давно разрабатывал программу по опросу измерительного прибора.
Суть заключалась в том, что прибор раз в секунду передавал в порт данные.
Я должен был эти данные принимать и обрабатывать.
Поступил так, положил на форму TIdTCPClient,
забил порт и IP адрес прибора и выполнил Connect();
frmMain->indTCP1->Host=frmMain->edtIP->Text;
frmMain->indTCP1->Connect();
После чего включил таймер и по таймеру принимал данные из порта в виде текста, используя
indTCP1->IOHandler->CheckForDataOnSource(256);
alfa = indTCP1->IOHandler->InputBufferAsString();

Теперь появилось задание выполнить задачу наоборот, то есть слать в порт данные каждую секунду и любой клиент может законнектиться и изымать их.