Contributing to Horse

## Description
A clear description of the bug.

## Environment
- Horse Version: 3.0.0
- Delphi Version: 11.3 Alexandria
- OS: Windows 11
- Compilation Directive: HORSE_VCL

## Steps to Reproduce
1. Create a new console application
2. Add the following code...
3. Run the application
4. Send a GET request to /endpoint

## Expected Behavior
The server should return a 200 OK response.

## Actual Behavior
The server returns a 500 Internal Server Error.

## Code Sample
```delphi
uses Horse;

begin
  THorse.Get('/endpoint',
    procedure(Req: THorseRequest; Res: THorseResponse)
    begin
      // Bug occurs here
      Res.Send('test');
    end);
  
  THorse.Listen(9000);
end.

<Note>
The more details you provide, the easier it is to diagnose and fix the issue.
</Note>

## Suggesting Features

Feature requests help shape the future of Horse.

### Creating a Feature Request

<Steps>
  <Step title="Check existing requests">
    Search [issues](https://github.com/HashLoad/horse/issues) to see if someone already suggested it.
  </Step>
  
  <Step title="Describe the use case">
    Explain what problem your feature would solve and why it's valuable.
  </Step>
  
  <Step title="Propose a solution">
    Suggest how the feature might work, including API design if applicable.
  </Step>
  
  <Step title="Consider alternatives">
    Mention other ways the problem could be solved or workarounds you've tried.
  </Step>
</Steps>

**Feature request template:**

```markdown
## Feature Request

### Problem Statement
As a Horse developer, I often need to [describe problem]...

### Proposed Solution
Add a new method/middleware that allows [describe solution].

### Example Usage
    THorse.Use(NewFeature(options));

### Alternatives Considered
- Workaround A: [description and limitations]
- Workaround B: [description and limitations]

### Benefits
- Simplifies common use case
- Improves developer experience
- Aligns with Express.js patterns

## Description
Brief description of what this PR does.

## Related Issue
Closes #123

## Changes Made
- Added X feature
- Fixed Y bug
- Updated Z documentation

## Testing
- [ ] Unit tests pass
- [ ] Manual testing completed
- [ ] Tested on Delphi
- [ ] Tested on Lazarus
- [ ] Documentation updated

## Breaking Changes
None / [describe any breaking changes]

## Screenshots
[if applicable]

unit Horse.MyMiddleware;

interface

uses
  Horse;

function MyMiddleware: THorseCallback; overload;
function MyMiddleware(const AOptions: string): THorseCallback; overload;

implementation

function MyMiddleware: THorseCallback;
begin
  Result := MyMiddleware('default');
end;

function MyMiddleware(const AOptions: string): THorseCallback;
begin
  Result :=
    procedure(Req: THorseRequest; Res: THorseResponse; Next: TProc)
    begin
      // Pre-processing
      try
        // Your middleware logic here
        
        // Call next middleware in chain
        Next;
        
        // Post-processing (optional)
      except
        on E: Exception do
        begin
          Res.Status(500).Send('Middleware error: ' + E.Message);
        end;
      end;
    end;
end;

end.