forum.boolean.name - setHttpMethod не устанавливает метод на POST

устанавливаю setHttpMethod(connect, POST); - все равно отправляет GET
Проверил сниффером.

Код:

Код:

var

  htmlbody, resp:String;

  connect:http;

  i:Integer;

begin

  htmlbody := '...'; // Тут был большой блок с данными



  if not openHttp(connect,

    'http://transport.orgp.spb.ru/Portal/transport/stop/1282/arriving/') then

  begin

    drawText('Error1', 0, 0);

    repaint;

    delay(2000);

    halt;

  end;



  setHttpMethod(connect, POST);



  addHttpHeader(connect, 'User-Agent', 'Mozilla/5.0 (Windows NT 6.1; rv:12.0) Gecko/20100101 Firefox/12.0');

  addHttpHeader(connect, 'Accept', 'application/json, text/javascript, */*; q=0.01');

  addHttpHeader(connect, 'Accept-Language', 'ru-ru,ru;q=0.8,en-us;q=0.5,en;q=0.3');

  addHttpHeader(connect, 'Connection', 'keep-alive');

  addHttpHeader(connect, 'Content-Type', 'application/x-www-form-urlencoded; charset=UTF-8');

  addHttpHeader(connect, 'X-Requested-With', 'XMLHttpRequest');

  addHttpHeader(connect, 'Referer', 'http://transport.orgp.spb.ru/Portal/transport/stop/1282');

  addHttpHeader(connect, 'Pragma', 'no-cache');

  addHttpHeader(connect, 'Content-Length', integertoString(length(htmlbody)));

  addHttpBody(connect, htmlbody);





 

  if sendHttpMessage(connect) <> 200 then halt;

  resp := getHttpResponse(connect);



  closeHttp(connect);



  i := formAddString(resp);

  showForm;

  delay(5000);



  delay(2000);