HTTP компоненты и Keep-Alive соединения

procedure TReceiveThread.HTTPAboutToSend(Sender: TObject);
begin
  HTTP.SendHeader.Values['Connection'] := 'Keep-alive';
end;

procedure TReceiveThread.DoWork;
begin

  HTTP := TNMHTTP.Create(nil);
  HTTP.TimeOut := 0;
  HTTP.OnPacketRecvd := HTTPPacketRecvd;
  HTTP.OnAboutToSend := HTTPAboutToSend;
  try
     HTTP.Post(fURL,DEF_IND_SUBSCR_REQV);
  finally
    HTTP.Free;
  end;

end;

procedure TReceiveThread.HTTPPacketRecvd(Sender: TObject);
begin
  // обработка
end;

procedure TReceiveThread.Execute;
begin
  DoWork;
end;