Esta sequencia pode gerar inconsistência no BD

olá estou usando ZEOS e FB 1.5 e estou tendo, em alguns clientes perda de registros, seria esta sequencia:

ExecSql;
Try
dm.ZConnection.Commit;
Except
frmMain.mkmMensagem( ´Erro ao Gravar OPERACAO´);
dm.ZConnection.RollBack;
varC_Where := ´´;
Exit;
End;