procedure TFCadastro.BitNovoClick(Sender: TObject);
begin
DM.SQLQuery1.Append;
BitNovo.Enabled:=False;
BitSalvar.Enabled:=True;
BitAlterar.Enabled:=False;
BitCancelar.Enabled:=True;
BitExcluir.Enabled:=False;
BitPesquisar.Enabled:=False;
BitSair.Enabled:=False;
HabilitaCampos;
DBGrid1.Enabled:=False;
end;