fIMalloc - это глобальная переменная, освобождается лишь один раз при завершении программы, а CoGetMalloc делается каждый раз в TDataSource.Create