diff --git a/zmqapi.pas b/zmqapi.pas
index 9afa06a..bd09250 100644
--- a/zmqapi.pas
+++ b/zmqapi.pas
@@ -828,7 +828,7 @@ constructor TZMQMsg.create;
 
 destructor TZMQMsg.Destroy;
 begin
-  msgs.Clear;
+  Clear;
   msgs.Free;
   inherited;
 end;
@@ -1017,6 +1017,8 @@ procedure TZMQMsg.Clear;
 begin
   for i := 0 to size - 1 do
     Item[i].Free;
+  msgs.Clear;
+  csize := 0;
   cursor := 0;
 end;