클라이언트에서 서버로 어떤 패킷을 보내면 서버에서 보내온 클라이언트로 다시 어떤 패킷을 보내야합니다.

그런데 아래의 소스는 채팅프로그램 대화주고받는 소스 일부입니다.


procedure TForm1.doTalk(AThread: TIdPeerThread; Strings: TStringList);
var
  List : TList;
  Loop : Integer;
  stTemp : String;
begin
  stTemp:= StringReplace(Strings.Text, #13, ';', [rfReplaceAll]);
  List:= IdTCPServer1.Threads.LockList;
  Try
    For Loop:= 0 to List.Count-1 do Begin
      TIdPeerThread(List.Items[Loop]).Connection.WriteLn(stTemp);
    End;
  Finally
    IdTCPServer1.Threads.UnlockList;
  End;

end;

이 소스는 모든 클라이언트에 패킷을 보내는 거잖아요  한 클라이언트 그러니까... 자신에게 어떤메세지를 보낸

클라이언트에게만 패킷을 보내는 방법을 알고싶습니다... 가능하면 소스예제를 보여주시면 감사하겠습니다.