Arvore B

Gostaria de saber se alguém poderia me fornecer o código da árvore b em delphi pois estou pecisando muito. (inserir, remover e buscar...)