Сформировать тело post запроса

[AndreyAVM]

Всем привет!

Я посылаю http post запросы используя компонент на форме TNetHttpRequest. Все CustomHeaders какие нужно выставляю. Но мне еще нужно как-то сформировать тело запроса, потому что в нем нужно передать аргументы - в самом простом виде "0 1 2". Нужно чтобы в итоге пакет имел примерно такой формат (вставка из сниффера):

Hypertext Transfer Protocol
POST /setswitchport?section=STAT HTTP/1.1\r\n
[Expert Info (Chat/Sequence): POST /setswitchport?section=STAT HTTP/1.1\r\n]
[POST /setswitchport?section=STAT HTTP/1.1\r\n]
[Severity level: Chat]
[Group: Sequence]
Request Method: POST
Request URI: /setswitchport?section=STAT
Request URI Path: /setswitchport
Request URI Query: section=STAT
Request URI Query Parameter: section=STAT
Request Version: HTTP/1.1
Accept: */*\r\n
Content-Type: application/x-www-form-urlencoded\r\n
X-Requested-With: XMLHttpRequest\r\n
Referer: http://192.168.10.30/\r\n
Accept-Language: ru-RU\r\n
Accept-Encoding: gzip, deflate\r\n
User-Agent: Mozilla/5.0 (Windows NT 6.3; WOW64; Trident/7.0; rv:11.0) like Gecko\r\n
Host: 192.168.10.30\r\n
Content-Length: 3\r\n
[Content length: 3]
DNT: 1\r\n
Connection: Keep-Alive\r\n
Cache-Control: no-cache\r\n
\r\n
[Full request URI: http://192.168.10.30/setswitchport?section=STAT]
[HTTP request 3/3]
[Prev request in frame: 113]
[Response in frame: 142]
File Data: 3 bytes
HTML Form URL Encoded: application/x-www-form-urlencoded
Form item: "0 2" = ""
Key: 0 2
Value:

Но никак не могу разобраться, как поместить данные в тело запроса...

[p51x]

TNetHttpRequest.Post

[AndreyAVM]

with (NetHTTPRequest1) do
begin
MethodString := 'post';
URL := 'http://192.168.1.10/' + 'setswitchport?section=none%0 1';
CustomHeaders['Content-Type'] := 'application/x-www-form-urlencoded';
CustomHeaders['X-Requested-With'] := 'XMLHttpRequest';
CustomHeaders['Accept-Encoding'] := 'gzip, deflate';
CustomHeaders['Accept-Language'] := 'ru-RU';
CustomHeaders['Referer'] := 'http://' + fIPAddress + '/';
CustomHeaders['Content-Length'] := '3';
try
Execute();
except
end;
end;

Вот так я сделал. Но чего-то тут не хватает.

[p51x]

Вы выше пост пропустили

[AndreyAVM]

Вы написали TNetHttpRequest.Post

Что я пропустил?