救命啊，看看我的程序有什么问题，是idhttp用post提交的问题

Question

var
 idHttp:TidHttp;
 s:TStringList;
 r:TStringStream;
begin
idHttp:=TidHttp.Create(nil);
r:=TStringStream.Create('');
s:=TStringList.Create ;
idHttp.HTTPOptions:=[];
s.Text:='p1=' + p1 + '&p2=' + p2 + '&p3=' + p3;
try
 idHttp.Post(website + '/post.asp',s,r);
except
 ShowMessage('网络错误或服务器故障..');
end;
ShowMessage(r.DataString);
s.Free;
r.Free;
idHttp.Free;提交过去后，取p1、p2、p3都取不出，为空值，请问是怎么回事？？救命啊，急

Answer 1

s.add('p1='+p1);
s.add('p2='+p2);
s.add..

Answer 2

在前面加上一句看看
Http.Request.ContentType := 'application/x-www-form-urlencoded';