Отклонение "чужих" клиентов

[Пепел Феникса]

можно запоминать сам Socket(из событий)
далее проверять его актуальность перед отключением(ServerSocket1.Socket.Co nnections тут все они)

[SlashMan]

всмысле запоминать сам Socket?

[Пепел Феникса]

переменную Socket из событий, можно запомнить

[s.Creator]

Сообщение от SlashMan

...
Я запускаю 2 копии клиента на 2х разных компах... но помимо этих 2х IP
в ListBox'е присутствует порядка 10 других, непонятных IP адресов...
(вероятно какая-то программа использует порт 30581)

Может покажите код (в смысле на предмет ошибки в методе определения IP)?
Вы не пробовали менять порт сервера? если да при смене ситуация повторяется? и какие "непонятные IP" еще появляются?

Сообщение от SlashMan

как мне сделать так, чтобы при подключении клиента , сервер проверял, является ли он "своим", и если нет, то отсоединял его от себя?
Спасибо

Если это только начало разработки клиент-серверного комплекса и в дальнейшем клиенты будут обмениваться с сервером информацией, то значит у вас будет будет разработана (надеюсь) структура передаваемых пакетов в которую можно добавить и какой то идентификатор (который скажет что это свой)
Но даже если только для того и нужен чтобы отображать подключенных клиентов (например посмотреть кто работает, а кто гуляет) можно сделать чтобы клиент передавал идентификатор и после его обработки сервер заносил его в список.

[SlashMan]

хорошо, завтра постараюсь разобраться и написать такой код.. если все заработает то выложу его сюда.. собственно также как и в ином случае)

[SlashMan]

procedure TForm1.Button3Click(Sender: TObject);
begin
for z:=0 to length(lol)-1 do
begin
  if ip[z] <> '' then
    ListBox2.Items.Add(ip[z]);
end;
end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
if Socket.ReceiveText = 'data' then
begin
for Z:=0 to length(ip)-1 do
begin
  if ip[z] = '' then
  begin
    ip[z]:=Socket.RemoteAddress;
    break;
  end;
end;
end;
end;

procedure TForm1.ServerSocket1ClientDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
for Z:=0 to length(ip)-1 do
begin
  if ip[z] = Socket.RemoteAddress then
  begin
    ip[z]:='';
    break;
  end;
end;
end;

написал программку которая запоминает IP адреса своих и строит список из них в TListBox. Кому интересно - забирайте) проблемма решена
всем спасибо)