Draw compass It uses a TPaintbox, Compass , to repaint the compass when needed. Compass is completely redrawn for each call so its owner (Panel1) has its Doublebuffered property set True to prevent flashing when the space is cleared before redrawin