{Например, при обработке GET:    }
var
 LClient: TIdTCPClient;
 LDocument: string;
 LHeaders: TIdHeaderList;
 LRemoteHeaders: TIdHeaderList;
 LURI: TIdURI;
 LPageSize: Integer;
begin
 ASender.PerformReply := false;
 LHeaders := TIdHeaderList.Create; try
   ASender.Context.Connection.IOHandler.Capture(LHeaders, '');
   LClient := TIdTCPClient.Create(nil); try
     LURI := TIdURI.Create(ASender.Params.Strings[0]); try
       LClient.Port := Sys.StrToInt(LURI.Port, 80);
       LClient.Host := LURI.Host;
       //We have to remove the host and port from the request
       LDocument := LURI.Path + LURI.Document + LURI.Params;
     finally Sys.FreeAndNil(LURI); end;
     LClient.Connect; try
       LClient.IOHandler.WriteLn('GET ' + LDocument + ' HTTP/1.0'); {Do not Localize}
       LClient.IOHandler.Write(LHeaders);
       LClient.IOHandler.WriteLn('');
       LRemoteHeaders := TIdHeaderList.Create; try
         LClient.IOHandler.Capture(LRemoteHeaders, '');
// вот заголовок отправляется:   ==============================
         ASender.Context.Connection.IOHandler.Write(LRemoteHeaders);
         ASender.Context.Connection.IOHandler.WriteLn('');
// ======================================================
         LPageSize := Sys.StrToInt(LRemoteHeaders.Values['Content-Length'], -1) ; {Do not Localize}

// вот ресурс отправляется:   ================================
         TransferData(LClient, ASender.Context.Connection, LDocument, LPageSize, LRemoteHeaders);
// ======================================================
       finally Sys.FreeAndNil(LRemoteHeaders); end;
     finally LClient.Disconnect; end;
   finally Sys.FreeAndNil(LClient); end;
 finally Sys.FreeAndNil(LHeaders); end;

...
var
 LStream: TIdStream;
begin
 //TODO: Have an event to let the user perform stream creation
 LStream := TIdMemoryStream.Create; try
   ASrc.IOHandler.ReadStream(LStream, ASize, ASize = -1);
   LStream.Position := 0;
   DoHTTPDocument(ADocument, LStream, AHeaders); // TyT Hu4ero oco6eHHoro
   // Need to recreate IdStream, DoHTTPDocument passes it as a var and user can change the
   // stream that is returned
   ADest.IOHandler.Write(LStream);
 finally Sys.FreeAndNil(LStream); end;
...

var
 LStream: TIdStream;
 StreamBuf: TIdBytes;
 DocSize: Integer;
begin
 LStream := TIdMemoryStream.Create; try
 ReqBlock := not RequestAllow(reqUrl);
 DocSize:=0;

 while (ASrc.IOHandler.Connected) and
  (ADest.IOHandler.Connected) do
  begin
  if ASrc.IOHandler.Readable then
   begin
   ASrc.IOHandler.ReadBytes(StreamBuf, -1, false);
   ADest.IOHandler.WriteDirect(StreamBuf);
   DocSize:=DocSize + SizeOf(StreamBuf);
   end;
  end;

//  ПОЧЕМУ-ТО ДАЛЬШЕ (начиная с этой строки)
//  НИЧЕГО НЕ ВЫПОЛНЯЕТСЯ

end;