我想改善一下单位对外服务平台的处理水平，需要登录到几个网站，查询相关信息，再将结果显示给操作员（主要是想将固定的几条返回英文信息转换成中文信息）。

现在碰到的问题是程序老是登录不上。又不能频繁试（否则对方会警告），于是我改为试CNDEV，还是登录不上，代码如下，是什么原因呢？谢谢！
var
Params: TStrings;
HTML,UserName,Password : String;
begin
UserName := Trim(edtUserName.Text);
Password := Trim(edtPassWord.Text);
if UserName = '' then
begin
MessageBox(Handle, '请输入登录用户名！', '提示', MB_OK + MB_ICONINFORMATION);
edtUserName.SetFocus;
Exit;
end;
if Password = '' then
begin
MessageBox(Handle, '请输入登录密码！', '提示', MB_OK + MB_ICONINFORMATION);
edtPassWord.SetFocus;
Exit;
end;
//通过代理上网
if CheckBoxProxy.Checked then
begin
IdHTTPCNDEV.ProxyParams.ProxyServer:=edtProxyServer.Text;
IdHTTPCNDEV.ProxyParams.ProxyPort:=Strtoint(edtProxyPort.Text);
IdHTTPCNDEV.ProxyParams.ProxyUsername:=edtProxyUserName.Text;
IdHTTPCNDEV.ProxyParams.ProxyPassword:=edtProxyPWD.Text;
end
else
begin
IdHTTPCNDEV.ProxyParams.ProxyServer:='';
IdHTTPCNDEV.ProxyParams.ProxyPort:=0;
IdHTTPCNDEV.ProxyParams.ProxyUsername:='';
IdHTTPCNDEV.ProxyParams.ProxyPassword:='';
end;
Params:=TStringList.Create;
try
Params.Add('username='+UserName);//用户名
Params.Add('password='+Password);//密码
HTML:=IdHTTPCNDEV.Post(BaseURL + 'authentication/login.aspx',Params);
if Pos(BASEURL+'main/',HTML)=0 then
begin
MessageBox(Handle, '好象没有通过登录！', '错误', MB_OK + MB_ICONSTOP);
Exit;
end;
except
end;
end;