Сложно ли вычислять IP-адрес обычному человеку или это минутное дело?

Минутой не обойдетесь.

Как вычислить IP адрес компьютера?
(Описание функции, которая показывает, как вычислить ip адрес компьютера в интернете по его доменному имени)

Объявляем winsock, для использования в функции
function hosttoip(name: string;
var ip: string): boolean;
var
wsdata : twsadata;
hostname : array [0..255] of char;
hostent : phostent;
addr : pchar;
begin
wsastartup ($0101, wsdata);
try
gethostname (hostname, sizeof (hostname));
strpcopy(hostname, name);
hostent := gethostbyname (hostname);
if assigned (hostent) then
if assigned (hostent^.h_addr_list) then
begin
addr := hostent^.h_addr_list^;
if assigned (addr) then
begin
ip := format ('%d.%d.%d.%d', [byte (addr [0]),
byte (addr [1]), byte (addr [2]), byte (addr [3])]);
result := true;
end
else
result := false;
end
else
result := false
else
begin
result := false;
end;
finally
wsacleanup;
end
end;

t? можете разметстить на форме editbox, Кнопку и label и добавить к кнопке следующий обработчик события onclick:

procedure tform1.button1click(sender: tobject);
var
ip: string;
begin
if hosttoip(edit1.text, ip) then label1.caption := ip;
end;
-------------------------
var
wsadata: twsadata;
sockaddrin: tsockaddrin;
host: phostent;
// Эти переменные объявлены в winsock.pas
begin
if wsastartup($101, wsadata) = 0 then begin
host := gethostbyname(@localname[1]);
if host<>nil then begin
sockaddrin.sin_addr.s_addr:= longint(plongint(host^.h_addr_list^)^);
localip := inet_ntoa(sockaddrin.sin_addr);
end;
wsacleanup;
end;
end;

можно, например если используете скайп, во время связи запустить утилиту cports

и вообще она показывает все IP подключений, а регион можно узнать здесь

http://2ip.ru/whois/

свой несложно, нужно зайти в свойства подключения, выбрать сведения или наподобие того
еще существуют сайты, где можно вычислить свой АйПи
А чужой сложно, к тому же он может быть динамический.

IP адрес получить-не проблема даже школьнику, а вот "вычислить" место проживания могут только спецслужбы.

Вычислить где, на этом сайте?

Смотря где вычислять.

??? вопрос не понятен вычеслять чужой или узнать свой?

не сложно, это минутное дело.