anchor.diff:        try
           con.ExtProcess.Input.WriteAnsiString(str);
         except
  -        app.WriteCon('** Error on sending data to stdin.');
  +        app.WriteCon('', '** Error on sending data to stdin.');
         end;
       end;
     end;
   end;
   
   procedure TvtxApp.WSWrite(
  -      aSender :	TWebSocketCustomConnection;
  +      aSender : TWebSocketCustomConnection;
         aFinal,
         aRes1,
  -  		aRes2,
  -      aRes3 :		boolean;
  -      aCode :		integer;
  -      aData :		TMemoryStream);
  +      aRes2,
  +      aRes3 :   boolean;
  +      aCode :   integer;
  +      aData :   TMemoryStream);
   begin
     lastaction := now;
  -	//WriteCon('Write WS Connection.');
  +  //WriteCon('Write WS Connection.');
   end;
   
   procedure TvtxApp.WSClose(
         aSender: TWebSocketCustomConnection;
  -  		aCloseCode: integer;
  +      aCloseCode: integer;
         aCloseReason: string;
         aClosedByPeer: boolean);
   begin
  -	WriteCon('Close WS Connection.');
  +  WriteCon(TvtxWSConnection(aSender).Socket.GetRemoteSinIP, 'Close WS Connection.');
   end;
   
   procedure TvtxApp.WSBeforeRemoveConnection(
  -  		Server : 			TCustomServer;
  -      aConnection :	TCustomConnection); register;
  +      Server :      TCustomServer;
  +      aConnection : TCustomConnection); register;
   var
     conn : TvtxWSConnection;
   begin
     conn := TvtxWSConnection(aConnection);
     if (conn.ExtProcess <> nil) and conn.ExtProcess.Running then
     begin
  -  	WriteCon('Force Terminate Node Processes');
  +    WriteCon(TvtxWSConnection(aConnection).Socket.GetRemoteSinIP,
  +    	'Force Terminate Node Processes');
       try
         conn.ExtProcess.Terminate(0);
       except
  -      WriteCon('** Error terminating node process.');
  -    end;
  -  end;
  -  WriteCon('Before Remove WS Connection.');
  +      WriteCon('', '** Error terminating node process.');
  +    end;
  +  end;
  +  WriteCon('', 'Before Remove WS Connection.');
   
   end;
   
  
positive.code: 
  procedure TvtxApp.HTTPTerminate(Sender : TObject); register;
  begin
  	WriteCon('HTTP Terminated.');
  end;
  
  procedure TvtxApp.BridgeTerminate(Sender: TObject);
  begin
    WriteCon('Bridge Terminated.');
  end;
  
  procedure TvtxApp.NannyTerminate(Sender: TObject);
  begin
  	WriteCon('Process Terminated.');
  end;
  
  procedure TvtxApp.WSBeforeAddConnection(
    		Server : 			TCustomServer;
        aConnection :	TCustomConnection;
    var CanAdd : 			boolean); register;
  begin
  	WriteCon('Before Add WS Connection.');
  end;
  
  procedure TvtxApp.WSAfterAddConnection(
  
negative.code:     procedure StopHTTP;
      procedure StopWS;
      procedure StopBridge;
      procedure WriteCon(ip, msg : string); register;
      procedure WSBeforeAddConnection(Server : TCustomServer; aConnection : TCustomConnection;var CanAdd : boolean); register;
      procedure WSAfterAddConnection(Server : TCustomServer; aConnection : TCustomConnection); register;
      procedure WSBeforeRemoveConnection(Server : TCustomServer; aConnection : TCustomConnection); register;
  