Fixed header reading in Apache for Delphi

uses Horse, Web.HTTPD24Impl;

var
  ApacheModuleData: TApacheModuleData;

exports
  ApacheModuleData name 'apache_horse_module';

begin
  THorse.DefaultModule := @ApacheModuleData;
  THorse.HandlerName := 'apache_horse_module-handle';

  THorse.Get('/ping',
    procedure(Req: THorseRequest; Res: THorseResponse; Next: TProc)
    begin
      Res.Send('pong: ' + Req.Headers.Field('CONNECTION').AsString);
    end);

  THorse.Listen;
end.

HashLoad / horse

Fixed header reading in Apache for Delphi #322