procedure TForm1.Button1Click(Sender: TObject);
var
  LoginInfo:TStrings;
  Response:TStringStream;  
begin
  Response := TStringStream.Create('');
  LoginInfo := TStringList.Create;
  try
    LoginInfo.Clear;
    LoginInfo.Add('id='+trim(form1.Edit1.Text));
    try
     IdHTTP1.Post('http://flash.chinaren.com/ip/id.php',LoginInfo,Response);
    except
    showmessage('登陆失败');
    end;
    showmessage(Response.DataString);  
 finally
  LoginInfo.Free;
  Response.Free;
end;  
end;
为什么我得到应该有的数值?