Можно ли узнать 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;

где узнать на чем можно сканером адресов

Чей?

2ip.ru

Нет.

Можно!
Но надо знать хорошие программы!! !
А то если прога нехорошая, то тебя ломанут!!!