procedure TFCadastro.BitSalvarClick(Sender: TObject);
begin
If (DBNome.Text='')then
Begin
ShowMessage('O Nome do contato não pode ser em branco');
DBNome.SetFocus;
exit;
end
else
Begin
DM.SQLQuery1.Post;
BitNovo.Enabled:=True;
BitSalvar.Enabled:=False;
BitAlterar.Enabled:=True;
BitCancelar.Enabled:=False;
BitExcluir.Enabled:=True;
BitPesquisar.Enabled:=True;
BitSair.Enabled:=True;
DesabilitaCampos;
Showmessage('Registro Salvo com Sucesso !'+'Agenda de Contatos');
DM.SQLQuery1.Close;
DM.SQLQuery1.Open;
DBGrid1.Enabled:=True;
end;