AVL tree (balanced binary tree) implementation needed

I'm looking for a Pascal/Delphi unit, which manages AVL trees
(including the operations Insert/Search/Delete)?

Thanks for your help!

--W. N.