[STest6905]

Знаю что тема заезженная но решить проблему не могу своими силами.
Пишу клиент-серверное приложение которое будет общаться по локальной сети. Для примера хочу открыть порт 48888

Код:

  if ServerSocket1.Active = True then
  begin
    Caption := 'Open Is Port'
  end
  else
    try
      ServerSocket1.Port := 48888;
      ServerSocket1.Open;
    except
      Caption := 'Error Open Port'
    end;

Если запустить клиент на том же компьютере то все работает а по сети не хочет.
Пробовал в командной строке прописать netstat или telnet - оба способа показывают что порт закрыт. Фаервол отключал и добавлял порт и программу в исключение.
В чем может быть проблема?
Спасибо.