Can anyone point me to a simple priority queue implementation in Delphi. It does not need to be thread-safe.

Can anyone point me to a simple priority queue implementation in Delphi. It does not need to be thread-safe. 
I need to transform some overzealous multithreaded code to single threaded. Because all calls in the queue will be single threaded I don't need protection. 

I can find lots of priority queues online, but all of them are either thread safe (I can do without that overhead) or overly complex.