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;

спс. вроде разобрался..
а как читать из сокета?

На таких сокетах далеко не уедешь...

А на каких нужно уходить? Поделись...

Ну я имею ввиду winsock, а не всякие ООПшные надстройки.

Ды я понел. Просто есть вопрос, нужен ответ. можете предложить лучше. Будем только рады, я бы и сам поучился у Вас.

там события есть OnRead,OnWrite.