diff --git a/lib/delphi/src/Thrift.Protocol.pas b/lib/delphi/src/Thrift.Protocol.pas
index 1f27203..e88f1cf 100644
--- a/lib/delphi/src/Thrift.Protocol.pas
+++ b/lib/delphi/src/Thrift.Protocol.pas
@@ -516,6 +516,7 @@
 constructor TFieldImpl.Create(const AName: string; const AType: TType;
   AId: SmallInt);
 begin
+  inherited Create;
   FName := AName;
   FType := AType;
   FId := AId;
@@ -523,6 +524,7 @@
 
 constructor TFieldImpl.Create;
 begin
+  inherited Create;
   FName := '';
   FType := Low(TType);
   FId   := 0;
@@ -702,7 +704,7 @@
 
 constructor TMapImpl.Create;
 begin
-
+  inherited Create;
 end;
 
 function TMapImpl.GetCount: Integer;
@@ -792,7 +794,7 @@
 
 constructor TSetImpl.Create;
 begin
-
+  inherited Create;
 end;
 
 function TSetImpl.GetCount: Integer;
@@ -826,7 +828,7 @@
 
 constructor TListImpl.Create;
 begin
-
+  inherited Create;
 end;
 
 function TListImpl.GetCount: Integer;
@@ -853,6 +855,7 @@
 
 constructor TBinaryProtocolImpl.Create( const trans: ITransport);
 begin
+  //no inherited
   Create( trans, False, True);
 end;
 
@@ -1253,12 +1256,14 @@
 
 constructor TBinaryProtocolImpl.TFactory.Create(AStrictRead, AStrictWrite: Boolean);
 begin
+  inherited Create;
   FStrictRead := AStrictRead;
   FStrictWrite := AStrictWrite;
 end;
 
 constructor TBinaryProtocolImpl.TFactory.Create;
 begin
+  //no inherited;  
   Create( False, True )
 end;