Rede - nome do computador

uses WinSock

function ComputerName: string;

var

  wsaData: TWSAData;

begin

  WSAStartup( 257, wsaData );

  Result := GetHostByName( NIL )^.h_name;

  WSACleanup;

end;

function LocalIP: string;

var

  wsaData: TWSAData;

begin

  WSAStartup( 257, wsaData );

  Result := iNet_ntoa( PInAddr( GetHostByName( NIL )^.h_addr_list^ )^ );

  WSACleanup;

end;