Создание ставки

[SmoK777]

Помогите написать создание ставки. Вожусь с idhttp но ничего не выходит. Вод что я пишу:
procedure TForm1.Button2Click(Sender: TObject);
var params,responseres:tstringlist;
begin
params:=TStringList.Create;
responseres:=TStringList.Create;
try
params.Add('sum1='+Edit3.Text);
params.Add('type=4');
responseres.Text:=idhttp1.Post('htt p://www.knb-game.com/?s=4&p=2',params);
if Pos('Ставки сделаны',responseres.Text)>0 then
Edit4.Text:=(Ставка размером' +Edit3.Text +'успешно создана!')
else
Edit4.Text:=('Ошибка.');
finally
params.free;
responseres.free;
end;
end;




html код :
<tr>
<td class="td" align="left">&nbsp;Ставка:</td>
<td class="td" align="center">
<input type="text" name="sum1" title="sum12" value="1" size="14"/>
<input type="hidden" name="rfs" title="rfs" value="4325538" size="10"/></td>
<input type="hidden" name="num" value="1"/></td>
</tr>
<tr>
<td class="td" align="left">&nbsp;Предмет:</td>
<td class="td" align="center">
<select name="type">
<option value="4">Случайно</option>
<option value="1">Камень</option>
<option value="2">Ножницы</option>
<option value="3">Бумага</option>
</select>
</td>
</tr>

[SmoK777]

немного по другому задам вопрос:
Есть код <input type="text" name="sum1" title="sum13" value="1" size="14"/> .
Надо с помощью params.Add('тут чтобы в value="1" присвоить другое значение');
responseres.Text:=idhttp1.Post('htt p://www.knb-game.com/?s=4&p=2',params); значение value="1" менялось на другое и ставка создовалась