procedure THHBSMsgServer.btnSendClick(Sender: TObject);
var
i:integer;
sMessage:string;
begin
sMessage:=edtMsg.Text;
if ServerSocket1.Active then
begin
for i:=0 to ServerSocket1.Socket.ActiveConnections-1 do
begin
ServerSocket1.Socket.Connections.SendText(sMessage);
end;
end;
end;
