Inserção de Dados...

estou com um baita problema em uma aplicação!

É o seguinte, na inserção de dados quando ponho pra confirmar a inserção sem nenhum dado, o registro é confirmado. o código é o seguinte:

procedure Tfm_registro.Bt_ConfirmaClick(Sender: TObject);begin try Dm_Conexao.Zqry_Registro.ApplyUpdates; Dm_Conexao.Zqry_Registro.CommitUpdates; // Dá um commit na CONEXÃO; Dm_Conexao.ZConnect.Commit; except Application.MessageBox('Digite os dados', 'Impossivel confirmar',Mb_Ok+Mb_IconWarning); Bt_Cancela.click; Dm_Conexao.Zqry_Registro.Delete; Dm_Conexao.Zqry_Registro.MoveBy(+1); exit; end; Dm_Conexao.Zqry_Registro.ApplyUpdates; Dm_Conexao.Zqry_Registro.CommitUpdates; // Dá um commit na CONEXÃO; Dm_Conexao.ZConnect.Commit; Dm_Conexao.Zqry_Registro.Refresh;end;