你可以拖个TidHttp控件到你的Form上，然后...
procedure Tform1.button1.click(sender:tobject);
var
aa : TStringList;
ss : String;
begin
aa := TStringList.Create;
aa.append('user=' + Edit1.Text);
aa.append('password=' + Edit2.Text);
ss := idHttp1.Post('http://www.XXX.com/CGI/XXX.exe',aa,ss);
If ss='error' Then showmessage('不通过');
else showmessage('OK');
end;
大体代码如上由于是顺手而写肯定有些错误，你可以看看DEMO的TINDY的IDHTTP部分的例程，另外，CGI在验证身份时，
应有不同的返回值，以供你的代码进行判断，比如上例中如果验证不通过则CGI返回
Response.content := 'error'
