delphi 服务器端给指定的客户端发送信息

Question

procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
begin
  for i:=0 to newsocketList.Count-1 do
  begin
    TCustomWinSocket(newsocketList.Items[i]).SendText(Edit1.Text);
  end;
end;这个是群发的
我想弄个单发的因为本人刚接触Delphi不久 请高手指点

Answer 1

“群发”的已经测试通过了吗？那就好：TCustomWinSocket(newsocketList.Items[0]).SendText(Edit1.Text);//这就是单发了，呵呵

Answer 2

我想利用获得的端口名 来 单发.可是不懂的sendto 怎么用