diff --git a/cultural_matrix.lpi b/cultural_matrix.lpi
index 853d34f..de30019 100644
--- a/cultural_matrix.lpi
+++ b/cultural_matrix.lpi
@@ -62,7 +62,7 @@
         <IsPartOfProject Value="True"/>
       </Unit3>
       <Unit4>
-        <Filename Value="units/zmq_pub_sub.pas"/>
+        <Filename Value="units/zmq_network.pas"/>
         <IsPartOfProject Value="True"/>
       </Unit4>
       <Unit5>
diff --git a/form_matrixgame.lfm b/form_matrixgame.lfm
index 3d7fa61..3630dc3 100644
--- a/form_matrixgame.lfm
+++ b/form_matrixgame.lfm
@@ -11,7 +11,6 @@ object FormMatrixGame: TFormMatrixGame
   ClientWidth = 1159
   Font.Name = 'Monospace'
   OnActivate = FormActivate
-  OnClose = FormClose
   OnCreate = FormCreate
   LCLVersion = '1.6.0.4'
   object StringGridMatrix: TStringGrid
diff --git a/form_matrixgame.pas b/form_matrixgame.pas
index a8e1aef..5f98594 100644
--- a/form_matrixgame.pas
+++ b/form_matrixgame.pas
@@ -75,7 +75,6 @@ type
     procedure Button3Click(Sender: TObject);
     procedure CheckBoxDrawDotsChange(Sender: TObject);
     procedure FormActivate(Sender: TObject);
-    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCreate(Sender: TObject);
     procedure rgMatrixTypeClick(Sender: TObject);
     procedure StringGridMatrixBeforeSelection(Sender: TObject; aCol, aRow: integer);
@@ -253,20 +252,20 @@ procedure TFormMatrixGame.SetGameActor(AValue: TGameActor);
 
   procedure SetZMQAdmin;
   begin
-    FZMQActor := TZMQAdmin.Create;
+    FZMQActor := TZMQAdmin.Create(Self);
     GBAdmin.Visible:= True;
   end;
 
   procedure SetZMQPlayer;
   begin
-    FZMQActor := TZMQPlayer.Create;
+    FZMQActor := TZMQPlayer.Create(Self);
     btnConfirmRow.Visible := True;
     StringGridMatrix.Enabled := True
   end;
 
   procedure SetZMQWatcher;
   begin
-    FZMQActor := TZMQWatcher.Create;
+    FZMQActor := TZMQWatcher.Create(Self);
   end;
 
 begin
@@ -319,11 +318,6 @@ begin
   StringGridMatrix.FocusRectVisible := False;
 end;
 
-procedure TFormMatrixGame.FormClose(Sender: TObject;
-  var CloseAction: TCloseAction);
-begin
-  FZMQActor.Free;
-end;
 
 procedure TFormMatrixGame.FormCreate(Sender: TObject);
 begin
--
libgit2 0.21.2