IdHTTp.Post или я просто не понимаю в чем дело

[Mad_Sanek]

procedure TForm1.sButton40Click(Sender: TObject);
var list :TStringList;
begin
list := TStringList.Create();
list.Add('action=internalHandel');
list.Add('subAction=bid');
list.Add('bazarID=17');
list.Add('amount='+sEdit42.text);
list.Add('x=66');
list.Add('y=16');
s:=id[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]'+sEdit1.Text+'.darkorbit.bigpoint.com/indexInternal.es',list);
If Pos('infoPopup',s)<>0 then
ShowMessage('Ñòàâêà ñäåëàíà')
else
ShowMessage('Îøèáêà');
end;


Вот собственно код ставки на торгах (darkorbit)
Проблема в том что ставиться только на 1 лот, то есть я авторизируюсь, ставлю на первый ЛЮБОЙ лот, ставка проходит идеально, но последующие лоты вылетают с ошибкой (внутренняя проверка)
В чем проблема?
AllowCookies:=True
HAndleRedirects:=True
Cookie Manager есть и присвоен idHTTp

[DelphiLab]

var
S:string;
Лучше
buff:string;

Потом
list := TStringList.Create();

Ну а вообще
ShowMessage('Ñòàâêà ñäåëàíà')
else
ShowMessage('Îøèáêà');

Возможно не понимает программа. Просто не могу понять, как первая ставка идет нормально,А друге нет

[Mad_Sanek]

это я просто скопировал из семерки
Там норм отображается русскими буквами

[Mad_Sanek]

var
S:string;
Лучше
buff:string;

А в чем разница? просто разные имена переменных!

[PseudoDog]

По идее еще reloadToken нужен.
И вместоlist.Add('x=66');
list.Add('y=16');
Что бы в баню не попасть, лучше использовать
list.Add('x=' + IntToStr(Random(93)));
list.Add('y=' + IntToStr(Random(19)));

Что бы не было утечек памяти надо где нибудь после s:=id[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]'+sEdit1.Text+'.darkorbit.bigpoint.com/indexInternal.es',list);
вставить list.free