一句话获取本机 IP

//添加 TIdIPWatch 控件: IdIPWatch1
procedure TForm1.Button1Click(Sender: TObject);
var
  ip: string;
begin
  ip := IdIPWatch1.LocalIP;
  ShowMessage(ip);
end;