分布式结构在网页上存取数据问题？？？？急急！！！！

我作了个已分布式结构在网页上存取数据的一个程序。用socketconnection联接远程应用程序服务器，在远程应用程序服务器端通过Type Library新建了一个方法getaliases( var naliases:olevariant)，用来取得机器上的数据库别名，通过session这个组件，在网页的文本列表框中显示出来，使用了标示符，网页组件用的是InetxPageProducer,在它的OnHtmlTag事件中定意如下：
procedure TWebModule1.InetXPageProducer1HTMLTag(Sender: TObject; Tag: TTag;
  const TagString: String; TagParams: TStrings; var ReplaceText: String);
var
valiases:variant;
icount:integer;
begin
if (tag=tgcustom) and (comparetext(tagstring,'aliases')=0)then
begin
if(not varisarray(valiases))then
begin
//socketconnection1.Open;
socketconnection1.AppServer.getaliases(valiases);
for icount :=vararraylowbound(valiases,1) to vararrayhighbound(valiases,1) do
replacetext :=replacetext+valiases[icount]+#13#10;
end;
end;
end;
网页不能刷新，只能打开一次，再次访问时不能显示数据，提示错误。
谢谢，我实在不知，而又急用