if DataSet is TCMDataSet then
      with TCMDataSet(DataSet) do << Предупреждает про эту строку
      begin
        if ActionPrint.Visible then
        begin
          AddButtonByAction(ActionPrint);
          AddButtonByAction(ActionPrintPreview);
          AddSeparator;
        end;
      end;

[dcc32 Warning] GMGrid.pas(1737): W1048 Unsafe typecast of 'TCMDataSet' to 'Pointer'

    if DataSet is TCMDataSet then
    begin
      DS := TCMDataSet(FDataSet);

      with DS do
      begin
        if ActionPrint.Visible then
        begin
          AddButtonByAction(ActionPrint);
          AddButtonByAction(ActionPrintPreview);
          AddSeparator;
        end;
      end;
    end;