Is there a good perlin noise unit availeable for delphi? Possible capeable of generating 3d textures?

Following the 'orange book' a 3d perlin noise texture should be generated beforehand on the cpu. Now i could convert all related source code, but i am feeling lazy and hope that there is some ready to use delphi sourcecode for that.

As always thanks in advance ...