object ScreenForm: TScreenForm Left = 0 Height = 190 Top = 0 Width = 307 Align = alClient AlphaBlend = True AlphaBlendValue = 1 BorderIcons = [] BorderStyle = bsNone Caption = 'Pick a color...' Font.Color = clWindowText FormStyle = fsStayOnTop OnCreate = FormCreate OnKeyDown = FormKeyDown OnMouseMove = FormMouseMove OnMouseUp = FormMouseUp OnShow = FormShow Position = poDefault LCLVersion = '2.1.0.0' end