Function GetMyIP: String; Var IdIPWatch : TIdIPWatch; Begin IdIPWatch := TIdIPWatch.Create(Nil); Result := IdIPWatch.LocalIP; IdIPWatch.Free; IdIPWatch := Nil; End;