[[Caral]]

Hola pruz
Hay que buscar en el foro, siempre hay mucha informacion, esto fue dicho por el maestro seoane hace varios dias.

Codigo y ejemplo dado por seoane en el foro

Puedes saber todas las direcciones IP y más información adicional desde una ventana de dos tecleando
ipcnfig /all
si quieres código en delphi ahí va:

Código Delphi [-]
uses
 IDStack;

procedure TForm1.Button1Click(Sender: TObject);
Var
 i:integer;
begin
  with TIdStack.CreateStack do
   Try
    //muestra una a una las IP de que dispones
    for i:=0 to LocalAddresses.Count-1 do
      showmessage(LocalAddresses[i]);
    //muestra la IP de la red local si esta existe
    //o la IP de laconexión a internet si hay red local
    showmessage(LocalAddress);
   finally
    Free;
   end;
end;

Para ponerte conectar a un ordenador al otro lado de internet necesitas las direcciones IP de internet de cada ordenador. Si los ordenadores están en una red local, además el puerto de conexión que utilices de este ordenador, debe estar redirigido del router o ordenador que utilices para conectarte a internet

Busca y encontraras
Saludos.