Delphi - TCP esterno

Usa IdIPWatch (Indy).
il codice e questo:

IdIPWatch1.Active := True;
stringa := IdIPWatch1.LocalIP;
IdIPWatch1.Active := False;

Se ti serve ti posto un programmi o una dll che fa quello che vuoi. Fammi sapere.

IdIPWatch ritorna l'IP locale e non quello esterno con cui posso accedere da altri compiuter al mio cmq grazie

Scusa, questo succede quando fai tutto di fretta.
prova questa funzione

function dammiippubblico(): String;
var
lastringaget: String;
r: TRegExpr;
ilmioip: string;
begin
ilmioip := ''; // nel caso non sei connesso ti ritorna bianco
// lastringaget:= IdHTTP1.Get('http:\whatismyip.com'); questo non funziona ho avuto modo di provarlo oggi
lastringaget:= IdHTTP1.Get('whatismyip.com/automation/…'); // questo funziona
try
r:= TRegExpr.Create; // nella stringa "lastringaget" trovi il tuo ip ora devi cercarlo
r.Expression := '\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}'; // espressione da provare funziona
if r.Exec(lastringaget) then
ilmioip := r.Match[0];
finally
r.Destroy;
end;
result := ilmioip;
end;

hai bisogno di regular expressions da regexpstudio.com e chiaramente indy