Fix compiler warning

The 'result' variable is not initialized with a value.

Author: GerryFerdinandus

source/code/bencode.pas

@@ -106,6 +106,7 @@ constructor TBEncoded.Create(Stream: TStream);
   var
     X: char;
   begin
+    Result := '';
     // loop until we come across it
     X := ' ';
     repeat