Установка серверу адреса и порта Indy 10

[Lokos]

Здравствуйте.
Такой вопрос как установить адрес и порт серверу как это делается в свойствах bindings

[Квэнди]

заполнить это свойство программно

With idTcpServer1.Bindings.add do
 Begin
  Ip   := '0.0.0.0';
  Port := XXXX;
 end;

[Lokos]

а как можно получить список IP адресов адаптеров в системе

[Lokos]

нашел сам

uses
  WinSock;

function GetLocalIP: String;
const WSVer = $101;
var
  wsaData: TWSAData;
  P: PHostEnt;
  Buf: array [0..127] of Char;
begin
  Result := '';
  if WSAStartup(WSVer, wsaData) = 0 then begin
    if GetHostName(@Buf, 128) = 0 then begin
      P := GetHostByName(@Buf);
      if P <> nil then Result := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
    end;
    WSACleanup;
  end;
end;