[Pilot_Red]

что первое в голову пришло

Код:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);

begin
  if ServerSocket1.Socket.Connections[i]=Socket then showmessage(inttostr(i));
end;