Заменить k := ListBox1.Items[ListBox1.ItemIndex]; на k := ListBox1.Items.Strings[ListBox1.ItemIndex];
Примерно так, тут ошибка обращения по несуществующему иднексу, возможно нужно использовать -1(index)

Если вы не добавить сайт в индексацию в поисковике то его все равно и не найдут, второй момент это фильтрация по IP, использование нестандартного порта, также рекомендуется если у вас выделенный IP, отключить icmp echo, так что если у вас просканируют порты и определят порт (например:3210) то при подключении будет типа: Connection refused