procedure TForm1.Button1Click(Sender: TObject);
begin
 edit1.Text:=IdIPWatch1.LocalIP;
 edit2.Text:=IdIPWatch1.CurrentIP;
 edit3.Text:=IdIPWatch1.LocalName;
end;