谁帮我看看这"自动注册"代码 ( 积分: 100 )

谁帮我看看这"自动注册"代码
我想实现"自动注册",网站:http://fjme.x.sfbbs.net/web.php?where=reg
procedure TForm1.Button1Click(Sender: TObject);
var
Params: TStrings;
p1:integer;
HTML,code1: String;
begin
//取验证码
HTML:=IdHttp1.Get('http://fjme.x.sfbbs.net/web.php?where=reg');
p1:=Pos('字母/数字->[',HTML);
code1:=copy(HTML,p1+12,4);
//提交数据
Params:=TStringList.Create;
Params.Add('face='+'face/14.gif');
Params.Add('userid_reg='+'1111');
Params.Add('password_reg='+'111111');
Params.Add('password2='+'111111');
Params.Add('sex='+'0');
Params.Add('email='+'abc@163.com');
Params.Add('code='+code1);
Params.Add('qq='+'');
HTML:=IdHttp1.Post('http://fjme.x.sfbbs.net/'+'submit.php?where=reg&fid=57456',Params);
end;

运行后注册不成功,到底是哪错了?请指点