diff --git a/lib/delphi/src/Thrift.Protocol.pas b/lib/delphi/src/Thrift.Protocol.pas
index 33e17d7..4c1954c 100644
--- a/lib/delphi/src/Thrift.Protocol.pas
+++ b/lib/delphi/src/Thrift.Protocol.pas
@@ -1225,7 +1225,7 @@
 
 function TBinaryProtocolImpl.TFactory.GetProtocol( const trans: ITransport): IProtocol;
 begin
-  Result := TBinaryProtocolImpl.Create( trans );
+  Result := TBinaryProtocolImpl.Create( trans, FStrictRead, FStrictWrite);
 end;
 
 end.