[cotseec]

Сообщение от RIBB

прием и отправка там отправка, мне надо чисто прием

идем по ссылке, среди прочего находим

Код:

.....procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
      Socket: TCustomWinSocket);
    begin
      {От клиента получено сообщение - выводим его в Memo1}
      Memo2.Lines.Insert(0,'Message received from client');
      Memo1.Lines.Insert(0,'> '+Socket.ReceiveText);
    end;.....

спрашиваем у гугла, он отвечает

OnClientRead - возникает, когда клиент передал серверу какие-либо данные. Доступ к этим данным можно получить через передаваемый параметр Socket: TCustomWinSocket;

по ходу дела тут еще и прием продемонстрирован
по аналогии TClientSocket - чтение и отправка

т.к.

на i.p. 172.0.0.1 приходят данные, необходимо принять их в любое поле (memo, edit,...)

похоже на ваш вариант, пробуйте, когда что-то конкретно получаться не будет - вопросы и примеры кода с описанием неполучающегося