Server 의 OnExecute

var
  Data : String;
  Contexts : TList;
  i : Integer;
begin
  Data := AContext.Connection.Socket.ReadLn;
  Contexts := IdTCPServer1.Contexts.LockList;
  for I := 0 to Contexts.Count - 1 do begin
    TIdContext(Contexts.Items[i]).Connection.Socket.WriteLn(Data);
  end;
  IdTCPServer1.Contexts.UnlockList;
end;


Client

  IdTCPClient1.Connect;
  IdTCPClient1.Socket.WriteLn('헬로우~');
  Memo1.Lines.Add(IdTCPClient1.Socket.ReadLn);


결과 : ???~ 가 찍히는군요 ㅜ.ㅜ