[Помогите!] 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:=idhttp1.post('http://'+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]

Цитата: Сообщение от DelphiLab 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:=idhttp1.post('http://'+sEdit1.Text+'.darkorbit.bigpoint.com/indexInternal.es',list);

вставить

list.free