Problemas con MDOTransaction...

[Jose Roman]

Hola a todos, me ha surgido un error el cual no se como corregirlo, las caracteristicas son las siguientes...
En el Form en que se ingresan los datos se crea el DataModule en el evento OnCreate del Form, en el evento OnCreate del DataModule se abre el Dataset y se inicia la transaccion, en el evento OnClose del Form tengo la siguiente instruccion:

procedure TwPdtSer.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
// Si la tabla está en modo de edición, se cancelan los cambios
if dmPdtSer.fbDataSet.State in dsEditModes then
dmPdtSer.fbDataSet.Cancel;
// Destruimos el Módulo de datos
dmPdtSer.Free;
Action := caFree;
end;

y en evento Destroy del DataModule tengo:

procedure TdmPdtSer.DataModuleDestroy(Sender: TObject);
begin
trLocal.Commit;
end;

Todo funciona a la perfaccion excepto cuando ensaye editar un campo, cambie la informacion de un campo y cerre el Form directamente sin cancelar la edicion y aparece este error:

List index out of Bounds (-1)

se que este error se genera cuando se da Commit a la transaccion, no se como corregir este error? , utilizo D7,FB2 y MDO