Move clearing screen to drawing unit and draw a screen border
Turn the button into an array of co-ordinates instead of TRect
Decrease font size in drawing procedure