سؤال حول Indy (إرسال/إستقبال البيانات)

[ALmuhhnad]

السلام عليكم ورحمة الله وبركاتة
أكتشفت طريقة إرسال البيانات إلى Clients ... وهي من خلال الكود التالي :

PHP كود :

procedure TForm1.Button3Click(Sender: TObject);
var
  Clients : TList;
  i : Integer;
begin
  Memo1.Lines.Add('You : ' + Edit1.Text);  
  if not Assigned(IdIRCServer1.Contexts) then Exit;

  Clients := IdIRCServer1.Contexts.LockList;
  for i := 0 to IdIRCServer1.Contexts.Count-1 do
  try
    TIdContext(Clients.Items[i]).Connection.Socket.Write(Edit1.Text);
  finally
    IdIRCServer1.Contexts.UnlockList;
  end;
end;