간단하게 IP 가져오기

uses
  .., IdStack;
  
function GetLocalAddress: string;
begin
  TIdStack.IncUsage;
  try
    Result := GStack.LocalAddress;
  finally
    TIdStack.DecUsage;
  end;
end;