在应用程序服务器中通过类型库编辑器
添加一个函数如login,返回值为boolean 
在客户端添加tsocketserver和tclientdataset;
td:tclientdataset;
procedure loginremote;
begin
 if td.provider.appserver.login(username,password)
 then ...
 else ...
end;