diff --git a/lib/delphi/src/Thrift.Protocol.JSON.pas b/lib/delphi/src/Thrift.Protocol.JSON.pas
index 9ec3871..f491f53 100644
--- a/lib/delphi/src/Thrift.Protocol.JSON.pas
+++ b/lib/delphi/src/Thrift.Protocol.JSON.pas
@@ -965,7 +965,7 @@
 
 function TJSONProtocolImpl.ReadJSONBase64 : TBytes;
 var b : TBytes;
-    len, off, size, cnt : Integer;
+    len, off, size : Integer;
 begin
   b := ReadJSONString(false);
 
diff --git a/lib/delphi/src/Thrift.Utils.pas b/lib/delphi/src/Thrift.Utils.pas
index 05fb964..15ea36f 100644
--- a/lib/delphi/src/Thrift.Utils.pas
+++ b/lib/delphi/src/Thrift.Utils.pas
@@ -141,6 +141,7 @@
 
   else
     ASSERT( FALSE);
+    result := 0;  // because invalid call
   end;
 end;