The remotehostip will only be set when a connection is made and holding. You have to make a connection, then set the caption to the ip. This does not apply to the local address. For the local address (you), just use:
Label1.Caption = Winsock1.LocalIP