Funcion Ver Mi IP Local Me error en delphi XE8

[webmasterplc]

Buenas en delphi 7 estaba usando una función que consegui en delphi al limite para ver la ip local y ahora en delphi xe8 me da error aqui le dejo la funcion

Código Delphi [-]
function MiIp: String;
var
  p: PHostEnt;
  s: array[0..128] of char;
  p2: pchar;
  wVersionRequested: WORD;
  wsaData: TWSAData;
begin
  // Arranca la librería WinSock
  wVersionRequested := MAKEWORD( 1, 1 );
  WSAStartup( wVersionRequested, wsaData );

  // Obtiene el nombre del PC
  GetHostName( @s, 128 );
  p := GetHostByName( @s );

  // Obtiene la dirección IP y libera la librería WinSock
  p2 := iNet_ntoa( PInAddr( p^.h_addr_list^ )^ );
  Result := Result + p2;
  WSACleanup;
end;

el error esta en esta linea

Código Delphi [-]
 // Obtiene la dirección IP y libera la librería WinSock
  p2 := iNet_ntoa( PInAddr( p^.h_addr_list^ )^ );

error
[dcc32 Error] Unit1.pas(54): E2010 Incompatible types: 'PWideChar' and 'PAnsiChar'