请高手帮我修改下代码

目前的问题就是变量传递问题程序是个登录器，里有个treeview里面的选项是通过远程列表读取能显示列表，但是列表选中后无法将这个信息传递选择了列表中的选项，点那个“登陆”没反映我比较白，没学过delphi，所以请高手帮我修改下或者指点下代码加上一些组件比较大，5M代码：http://www.rayfile.com/files/eb8c2c5c-82de-11dd-85f1-0014221b798a/列表：http://www.rayfile.com/files/ca00c8c5-82df-11dd-b753-0014221b798a/拜托了