Text1.Text = Winsock1.LocalIP

Hope this helps