procedure TWebBroker.TCPOnExecute(AContext: TIdContext);
var
 IO: TIdIOHandler;
 ReqLine, HdrLine, Auth, Body: string;
 Len: Integer;
begin
 IO := AContext.Connection.IOHandler;

 // 1. Request line
 ReqLine := IO.ReadLn;
 FLogger.Log('RAW-REQ: ' + ReqLine);

 // 2. Headers
 Auth := '';
 Len := 0;
 repeat
   HdrLine := IO.ReadLn;
   if HdrLine = '' then Break;
   if Pos('AUTHORIZATION:', UpperCase(HdrLine)) = 1 then
     Auth := Trim(Copy(HdrLine, 16, MaxInt));
   if Pos('CONTENT-LENGTH:', UpperCase(HdrLine)) = 1 then
     Len := StrToIntDef(Trim(Copy(HdrLine, 16, MaxInt)), 0);
 until False;

 // 3. Body
 if Len > 0 then
 begin
   Body := IO.ReadString(Len);
   FLogger.Log('RAW-BODY: ' + Body);
 end;

 // 4. Hemen 202 Accepted
 IO.WriteLn('HTTP/1.1 202 Accepted');
 IO.WriteLn('Content-Type: application/json');
 IO.WriteLn('Authorization: ' + Auth);
 IO.WriteLn('');
 IO.WriteLn('{"status":"accepted"}');
end;