HTTP := TccHTTP.Create;
try
HTTP.Request.ContentText := 'Example';
try
HTTP.Post('http://localhost:4520/defpool/postexample');
ShowMessage(IntToStr(HTTP.Response.Code));
ShowMessage(HTTP.Response.ContentText);
ShowMessage(HTTP.Response.Header['Content-Type']);
except
ShowMessage('Error on request with code: ' +IntToStr(HTTP.Response.Code));
end;
finally
HTTP.Free;
end;