var   Host: TLabel;
  IPaddr: TLabel;
...
function IsConnectedToInternet: Boolean;
var
  dwConnectionTypes: DWORD;
begin
  dwConnectionTypes :=
    INTERNET_CONNECTION_MODEM +
    INTERNET_CONNECTION_LAN +
    INTERNET_CONNECTION_PROXY;
  Result := InternetGetConnectedState(@dwConnectionTypes, 0);
end;


procedure ShowIp;
var
 wVerReq: WORD;
 wsaData: TWSAData;
 i: PChar;
 h: PHostEnt;
 c: array[0..128] of char;
begin
if IsConnectedToInternet then
begin
 wVerReq:=MAKEWORD(1, 1);
 WSAStartup(wVerReq, wsaData);
 GetHostName(@c, 128);
 h:=GetHostByName(@c);
 Host.Caption:=h^.h_Name;
 i:=iNet_ntoa(PInAddr(h^.h_addr_list^)^);
 IPaddr.Caption:=i;
 WSACleanup;
end
    else
MessageBoxA(0,'Not Connected!', 'Info', 0);
end;