anchor.diff:            MessageDlg('Game statistics from file [ ' + OpenDialog1.FileName + ' ] is valid', mtInformation , [mbOK ], 0)
           else
             MessageDlg('Game statistics from file [ ' + OpenDialog1.FileName + ' ] is NOT valid !', mtError, [mbClose], 0);
  -
         except
           on E: Exception do
             MessageDlg('Error while validating game statistics from file [ ' + OpenDialog1.FileName + ' ] :' + EolW
  
positive.code: 
    procedure UpdateVisibleLayers(aCheckBox: TCheckBox; aLayer: TKMGameVisibleLayer);
    begin
      if (Sender = aCheckBox) then
      begin
        if aCheckBox.Checked then
          gGameParams.VisibleLayers := gGameParams.VisibleLayers + [aLayer]
        else
          gGameParams.VisibleLayers := gGameParams.VisibleLayers - [aLayer];
      end;
    end;
  
  var
  
negative.code:     DEBUG_TEXT_MONOSPACED := chkMonospacedFont.Checked;
      DEBUG_TEXT_FONT_ID := rgDebugFont.ItemIndex;
    end;
  
    if gGameApp.Game <> nil then
      gGameApp.Game.ActiveInterface.UpdateState(gGameApp.GlobalTickCount);
  