ClientDatasetPool :=TPoolFactory.CreatePool<TClientDataset>
                        (POOL_SIZE, 10, 0,
                         function : TClientDataset 
                            begin 
                               result := TClientDataset.Create(nil); 
                            end
                        );