Get PC IP address - Delphi

Get your own IP Address

uses winsock;
..........
..........
Function GetIPAddress():String;
type
  pu_long = ^u_long;
var
  varTWSAData : TWSAData;
  varPHostEnt : PHostEnt;
  varTInAddr : TInAddr;
  namebuf : PAnsichar;
begin
  try
    If WSAStartup($101,varTWSAData) <> 0 Then
    Result := 'No. IP Address'
    Else Begin
      gethostname(namebuf,sizeof(namebuf));
      varPHostEnt := gethostbyname(namebuf);
      varTInAddr.S_addr := u_long(pu_long(varPHostEnt^.h_addr_list^)^);
      Result := inet_ntoa(varTInAddr);
    End;
    WSACleanup;
  Except on E:Exception do
  begin
    //Raise exception if you want (E.Message);
    Result := 'No. IP Address';
  end;
  end;
end;