Upss!! perdona!
Tienes que incluir Winsock
Tabien puedes usar el componente TCP que tienes en la paleta de componentes de
internet y bastará con que leas sus propiedades LocalHostName y LocalIp
Por ejemplo:
Código Delphi
[-]
Memo1.Lines.Add(TCP1.LocalHostName);
Memo1.Lines.Add(TCP1.LocalIp);
Pero piensa que es un OCX que luego da más complicaciones a la
hora de instalarlo en otra máquina
Saludos