Lento al Insertar

[brandolin]

Hola a todos:

Les tiro el problema: Tengo Firebird 1.5 RC7 + D6 + IBDataSet + Windows + Ejecucion en el disco local.
Se deben insertar unos 20000 registros uno detras del otro en un proceso diario de actualizacion de datos. El tema que se hace una consulta para ver si se inserta el registro (ya que no existe en la tabla) o se editan los datos.

El codigo es mas o menos asi:

if IBDataSet.locate('Codigo', Cod []) then IbDataSet.edit else ibdataset.insert
ibdatasetCodigo.value := XX
etc
etc
ibdataset.post;
IBTrans.commitretailing;

Cuando empieza el proceso camina a una velocidad interesante, pero luego de unos 1000 registros cae considerablemente la velocidad hasta llegar a 1 registro cada 2 o 3 seguntos, cosa que no puedo permitir.

Alguien sabe como se puede agilizar esto o porque sucede.

GRacias desde ya.