Delphi IDHTTP Post 登陆盒子论坛代码，不知哪里出错了？

procedure TForm1.SpeedButton1Click(Sender: TObject);
Var
  cCon:TSTringList;
  cText:TStringStream;
begin
 IdHTTP1:=TIDHTTP.Create(nil);
 cCon:=TStringList.Create;
 IDHTTP1.HandleRedirects:=True;
 cText:=TStringStream.Create;
 IdHTTP1.HTTPOptions:=[hoKeepOrigProtocol];
 IDHTTP1.Request.Accept:='image/gif, image/jpeg, image/pjpeg, image/pjpeg,application/x-shockwave-flash, application/vnd.ms-excel, ';
 IDHTTP1.Request.Accept:=IDHTTP1.Request.Accept+'application/vnd.ms-powerpoint, application/msword, application/x-ms-application, application/x-ms-xbap, application/vnd.ms-xpsdocument, application/xaml+xml, */*';
 IDHTTP1.Request.Referer:='http://bbs.2ccc.com/default.asp';
 IDHTTP1.Request.UserAgent:='Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; .NET CLR 1.1.4322; InfoPath.2; .NET CLR 2.0.50727; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729)';
 IDHTTP1.Request.ContentType:='application/x-www-form-urlencoded';
 IDHTTP1.Request.AcceptEncoding:='gzip, deflate';
 IDHTTP1.Request.Host:='bbs.2ccc.com';
 IDHTTP1.Request.CacheControl := 'no-cache';
 idhttp1.Request.Connection := 'Keep-Alive';
 cCon.Add('membername='+Trim(Edit1.Text));
 cCon.Add('memberpass='+Trim(Edit2.Text));
 cCon.Add('act=1');
 IDHTTP1.Post('http://bbs.2ccc.com/default.asp',cCon,cText);
 //IDHTTP1.GET('http://bbs.2ccc.com/',cText);
 Memo1.Text:=cText.DataString;
 cText.Free;
 IDHTTP1.Free;
end;不知哪里出错了，还有，登陆成功了，我想打开我的贴子，得Post另一个地址，如何保持还是这个用户登陆