var
  Param: TStringList;
  RStream: TStringStream;
begin
  Param := TStringList.Create;
  RStream := TStringStream.Create('');  idhttp.AllowCookies := True;  //mmo1.Text := Utf8ToAnsi(idhttp.Get('http://www2.vst.com.hk/services/'));
  Param.Add(AnsiToUtf8('loginID=ididid'));
  Param.Add(AnsiToUtf8('txtPW=*******'));
  idhttp.Post('http://www2.vst.com.hk/services/checking.php', Param, RStream);
  mmo1.Text := Utf8ToAnsi(RStream.DataString);
 
  Param.Free;
  RStream.Free;
end;之后,Mmo1中得到:
<html>
<head>  <script type="text/javascript">
<!--
function delayer(){
    window.location = "index.php"
}
//-->
</script>
</head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<style type="text/css">   
    
<!--
body {
background-color: #CCCCCC;
}    
.style1 {font-family: Arial, Helvetica, sans-serif}-->
</style><body onLoad="setTimeout('delayer()', 3000)">  </body>
</html>
------------------------
这个好像不对哦,请高手看过来~