var
Form1: TForm1;
Connections : integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
ServerSocket1.Active:=true;
Connections:=0;
end;

procedure TForm1.ServerSocket1Accept(Sender: TObject;
Socket: TCustomWinSocket);
begin
Inc(Connections);
Socket.SendText('Preved');
Edit1.Text:=IntToStr(Connections);
Socket.Disconnect(Connections);
Dec(Connections);
end;