procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
mmo1.Lines.Add(Socket.ReceiveText) ;

end;

procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
  var L : integer;
begin
mmo1.Lines.Add('Client connected: '+Socket.RemoteAddress) ;
           
lst1.Items.Clear;
For L := 0 to ServerSocket1.Socket.ActiveConnections-1 do
 begin
  lst1.Items.Add(Socket.RemoteAddress);
 end;
end;

procedure TForm1.ServerSocket1ClientDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
   var L : integer;
begin
mmo1.Lines.Add('Client disconnected: '+Socket.RemoteAddress) ;
lst1.Items.Clear;
For L := 0 to ServerSocket1.Socket.ActiveConnections-1 do
 begin
  lst1.Items.Add(Socket.RemoteAddress);
 end;
end;

procedure TForm1.btn2Click(Sender: TObject);
var i:Integer;
begin
for i:= 0 to ServerSocket1.Socket.ActiveConnections -1 do
if ServerSocket1.Socket.Connections[i].RemoteAddress= lst1.Items.Strings[lst1.ItemIndex] then
    begin
      ServerSocket1.Socket.Connections[i].SendText(edt1.Text);
      break ;
    end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 ServerSocket1.Active:=true;
 mmo1.Clear;
end;

procedure TForm1.mmo1Change(Sender: TObject);
begin
mmo1.Text := StringReplace(mmo1.Text, #13#10#13#10, #13#10, [rfReplaceAll]);
mmo1.SelStart:= Length(mmo1.Text);
mmo1.SelLength:= 1;
end;

procedure TForm1.btn1Click(Sender: TObject);
var  kk:Integer;
 i:Integer;
 s:string;
begin
   kk:=+DayOfTheWeek(now);
for i:= 0 to ServerSocket1.Socket.ActiveConnections -1 do
if ServerSocket1.Socket.Connections[i].RemoteAddress= lst1.Items.Strings[lst1.ItemIndex] then
    begin
      ServerSocket1.Socket.Connections[i].SendText('set time '+FormatDateTime('ss,nn,hh,dd,mm,yy,'+inttostr(kk),now));
      break ;
    end;
end;

procedure TForm1.ServerSocket1ClientError(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
   mmo1.Lines.Insert(0,'Client error. Code = '+IntToStr(ErrorCode));
end;