Bloquear Insert no Grid

Você pode utilizar como o nosso amigo Thiago disse, mas se você tiver que editar registros no DBGrid e não permitir a inclusão e exclusão, segue as rotinas abaixo.

{ Retorna o índice da última coluna visível }
function  RetIdxUltimaColVisivel(DBGrid: TDBGrid): integer;
var
  x: integer;
begin
  Result := -1;

  for x := DBGrid.Columns.Count-1 downto 0 do
  begin
    if  DBGrid.Columns.Items[x].Visible then
      begin
        Result := x;
        Break;
      end
    ;
  end;
end;

function  NaoInsereDBGrid(DBGrid: TDBGrid; DataSet: TDataSet; Key: Word): Word;
begin
  { Não deixa inserir registros no DBGrid caso:
    1- estiver em modo de edição: E
    1.1- se clicar na tecla "Insert"; OU
    1.2- se clicar na tecla "Seta para baixo" E estiver no último registro; OU
    1.2- se clicar na tecla "Tab" E estiver no último registro E estiver na
         última coluna visível. }
  Result := Key;

  if  dgEditing in DBGrid.Options then
    begin
      if  ( Key = VK_INSERT )
      or  ( (Key = VK_DOWN) and (DataSet.RecNo = DataSet.RecordCount) ) then
          Result := 0
      else
        if  ( Key = VK_TAB ) and ( DataSet.RecNo = DataSet.RecordCount ) then
          begin
            if  ( DBGrid.SelectedIndex = RetIdxUltimaColVisivel(DBGrid) ) then
                Result := 0
            ;
          end
        ;
     
    end
  ;
end;


No evento OnKeyDown do DBGrid coloque o seguinte:

procedure dbgrPadraoKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  { Não permite excluir }
  if  Key = VK_DELETE then
      Key := VK_NONAME
  ;

  { Não permite incluir }
  Key := NaoInsereDBGrid( TDBGrid(Sender), TDBGrid(Sender).DataSource.DataSet, Key );
end;


Espero ter colaborado.