Added samples and code improvements

Author: viniciussanchez

samples/Samples.dpr

@@ -0,0 +1,29 @@
+program Samples;
+
+{$APPTYPE CONSOLE}
+
+{$R *.res}
+
+uses
+  Horse, Horse.BasicAuthentication, System.SysUtils;
+
+var
+  App: THorse;
+
+begin
+  App := THorse.Create(9000);
+
+  App.Use(HorseBasicAuthentication(
+    function(const AUsername, APassword: string): Boolean
+    begin
+      Result := AUsername.Equals('user') and APassword.Equals('password');
+    end));
+
+  App.Get('ping',
+    procedure(Req: THorseRequest; Res: THorseResponse; Next: TProc)
+    begin
+      Res.Send('pong');
+    end);
+
+  App.Start;
+end.