// получить мои IP адреса  (return ErrorCode)
function GetMyIPAddress(ListIP: TStringList): DWORD;
var
           //ErrorCode: DWORD;
  pAdapterInfo, pAI            : PIpAdapterInfo;
  AdapterInfo            :  TIpAdapterInfo;
  OutBufLen: ULONG;
  s: string;
  IpAddrString: TIpAddrString;
begin
           try
                     ListIP.Clear;
             // GetAdaptersInfo
    //           Windows Server 2003 and Windows XP:
    //  Use the GetAdaptersAddresses function instead of GetAdaptersInfo
    //ErrorCode := GetAdaptersAddresses(AF_INET,0,nil, @AdapterAddresses , @OutBufLen);
    OutBufLen := 0;
    GetMem(pAdapterInfo,sizeof(TIpAdapterInfo));
    result := GetAdaptersInfo(pAdapterInfo, OutBufLen);
    // если выделили мало памяти - выделить больше
    if result = ERROR_BUFFER_OVERFLOW then
    begin
        FreeMem(pAdapterInfo);
                        GetMem(pAdapterInfo,OutBufLen);
                        result := GetAdaptersInfo(pAdapterInfo, OutBufLen);
    end;
    if result <> NO_ERROR then
    begin
        FreeMem(pAdapterInfo);
        exit;
                         //Memo1.Lines.Add(GetTextError(result));
    end;
    // теперь пора выводить информацию
    pAI := pAdapterInfo;
                     WHILE TRUE DO
    BEGIN
      //Memo1.Lines.Add('-- -- adapter -- --');
               //s := pAdapterInfo^.AdapterName;
      //Memo1.Lines.Add('AdapterName: '+ pAI^.AdapterName);
      //Memo1.Lines.Add('description: '+ pAI^.Description);
      //Memo1.Lines.Add('type: '+ IntToStr(pAI^.Type_));
      While True Do
      Begin
                //Memo1.Lines.Add('      -- -- IP -- --');
        IpAddrString := pAI^.IpAddressList;
        ListIP.Add(IpAddrString.IpAddress.S);
                //Memo1.Lines.Add('      IpAddress:'+IpAddrString.IpAddress.S);
        if IpAddrString.Next = nil then break;
        IpAddrString := IpAddrString.Next^;
      End;
      if pAI^.Next = nil then break;
      pAI := pAI^.Next;
    END;
        FreeMem(pAdapterInfo);

  except

  end;
end;  //           function GetMyIPAddress(ListIP: TGGStringList): DWORD;