DataHarvest:replaced TpostgresqlClose by commit