Frame no funciona

[Paulao]

Hizo un frame con estes codigos:
.

Código Delphi [-]
..
private
    { Private declarations }
    estado_tabela: Char;
    procedure liga_botoes;
  public
    { Public declarations }
  end;

implementation

uses uConstantes;
{$R *.dfm}

{ TfrInserir }

procedure TfrInserir.liga_botoes;
begin
  btnNovo.Enabled      := not btnNovo.Enabled;
  btnGravar.Enabled    := not btnGravar.Enabled;
  btnCancelar.Enabled  := not btnCancelar.Enabled;
  btnPesquisar.Enabled := not btnPesquisar.Enabled;
  btnImprimir.Enabled  := not btnImprimir.Enabled;
end;

procedure TfrInserir.btnNovoClick(Sender: TObject);
begin
  if dscPadrao.DataSet.Active then
  begin
    liga_botoes;
    estado_tabela := 'I';
    dscPadrao.DataSet.Append;
  end
  else
    MessageDlg(MSG_TABELA_FECHADA, mtInformation, [mbOk],0);
end;

end.

Quando premo el btnNovo, lo procedure liga_botoes no funciona, o sea, nada acontece. Que pasa en este codigo? Parece que estas bien, si erro.