Minhas Funções e Source do Delphi [ARCHNAEL]

Olá gente aqui postarei source, funções, exemplos e dicas de delphi.
Então é isso ai a primeira dica que vou colocar é como pegar o ip real de um pc conectado à internet.

Pegando o IP Real

uses ..., WinInet;

Código:

Código:

function GetRealIP:string;
var
    hSession, hURL: HINTERNET;
    Buffer: array [0..$F] of char;
    BufferLen:DWORD;
    str:PAnsiChar;
    i: integer;
    s,
    R: string;
begin
    try
        try
            hSession := InternetOpen('',INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
            hUrl    := InternetOpenUrl(hSession, PChar('http://ip1.dynupdate.no-ip.com'),nil, INTERNET_FLAG_RELOAD, 0, 0);
      repeat
          InternetReadFile(hUrl, @Buffer, Length(Buffer)-1, BufferLen);
          Buffer[BufferLen] := #0;
          Str := PAnsiChar(@Buffer);
          s := S+ String(str);
          until BufferLen = 0;

          for i:= 0 to Length(s) do
          if S[i] in ['0'..'9','.'] then
          R:= R+S[i];

          Result := R;
      except
          Result := '0.0.0.0';
      end;
      finally
      InternetCloseHandle(hURL);
      InternetCloseHandle(hSession);
      end;
end;