1. Добавляешь в список используемых модулей
IdStack
2. Перед последним
end. вставишь эти две секции:
Код:
initialization
GStack:=TidStack.CreateStack;
finalization
GStack.Free;
3.
GStack.LocalAddresses.Text - возвращает список используемых ip-адресов, можно делать так:
кидаешь на форму компонент TMemo и пишешь:
Код:
Memo1.Lines.Add(GStack.LocalAddresses.Text);