object FormTop: TFormTop Left = 328 Top = 312 BorderStyle = bsNone Caption = 'FormTop' ClientHeight = 60 ClientWidth = 800 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] FormStyle = fsStayOnTop Visible = True OnClose = FormClose OnCreate = FormCreate OnMouseDown = MouseDown OnPaint = FormPaint PixelsPerInch = 96 TextHeight = 13 object Bevel1: TBevel Left = 0 Top = 0 Width = 800 Height = 60 Style = bsRaised end object Block2: TShape Left = 728 Top = 1 Width = 71 Height = 59 Brush.Color = clBtnFace Pen.Color = clBtnFace OnMouseDown = MouseDown end object Block1: TShape Left = 1 Top = 1 Width = 23 Height = 59 Brush.Color = clBtnFace Pen.Color = clBtnFace OnMouseDown = MouseDown end object Bevel4: TBevel Left = 744 Top = 4 Width = 52 Height = 52 Shape = bsFrame end object Bevel3: TBevel Left = 4 Top = 4 Width = 52 Height = 52 Shape = bsFrame end object Bevel2: TBevel Left = 60 Top = 4 Width = 681 Height = 52 Shape = bsFrame end object TiledBitmap: TTiledBitmap Left = 0 Top = 0 Width = 800 Height = 60 Align = alClient end object Image: TImage Tag = 3 Left = 745 Top = 5 Width = 50 Height = 50 Center = True Picture.Data = {} OnClick = ImageClick end object Banner: TImage Tag = 2 Left = 62 Top = 5 Width = 677 Height = 50 Picture.Data = {} OnClick = BannerClick end object LabelEval: TLabel Left = 240 Top = 16 Width = 322 Height = 20 Caption = ' Unlicensed Copy - For evaluation only ' Color = clBlack Font.Color = clYellow Font.Height = -16 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentColor = False ParentFont = False end object AnalogClock: TAnalogClock Tag = 1 Left = 5 Top = 5 Width = 50 Height = 50 OnClick = AnalogClockClick OnMouseDown = MouseDown FaceColor = clMaroon Interval = 1 ShowSeconds = False end object Timer: TTimer Interval = 100 OnTimer = TimerTimer Left = 80 Top = 16 end end