[ART]

Кто нибудь юзал эти компоненты? Подскажите как отправить пост запрос, что то все догнать не могу...

[ART]

Разобрался. Код для тех, кто может столкнуться с подобным.

Код:

function Post(url, req: string): string;
var
 Response, Request: TStringStream;
 Data: string;
begin
 Data := '';
 Request  := TStringStream.Create(req);
 Response := TStringStream.Create('');
 try
  try
   {подразумевается, что sslContext назначен у HTTP}
   HTTP.SendStream := Request;
   HTTP.SendStream.Position := 0;
   HTTP.URL := url;
   HTTP.RcvdStream := Response;
   HTTP.Post;
   Data := Response.DataString;
 except
  Data := '';
 end;
finally
  Response.Free;
  Request.Free;
end;
 Result := Data;
end;