uses
IdWinSock2;

추가하시면될듯합니다.
초보자 님이 쓰신 글 :
: var
:  WSAData: TWSAData;
:  HostName, IPAddress: String;
:  HostEnt: PHostEnt;
: begin
:  WSAStartup(2, WSAData);
:  SetLength(HostName, 255);
:  GetHostname(PChar(HostName), 255);
:  SetLength(HostName, StrLen(PChar(HostName)));
:  HostEnt := GetHostByName(PChar(HostName));
:  with HostEnt^ do
:   IPAddress := Format('%d.%d.%d.%d',[Byte(h_addr^[0]), Byte(h_addr^[1]),
:   Byte(h_addr^[2]), Byte(h_addr^[3])]);
:   WSACleanup;
:  lipview.Caption := IPAddress;
: end;
:
:
: 이렇게 해서 IP address 알아내려고 하는데...  undeclared identifier 'TWSAData' 등의 에러메세지가
: 나옵니다.. 델파이 7쓰고 있구요... 왜 이런지 몰겠네요..
: 항상잘 답해주셔서 너무 감사드립니다..^^ 부탁 드릴게요!