object MsgReminder: TMsgReminder Left = 200 Top = 204 BorderStyle = bsToolWindow Caption = 'Message Reminder' ClientHeight = 264 ClientWidth = 401 Color = 14547961 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 24 Top = 8 Width = 353 Height = 65 Alignment = taCenter AutoSize = False Caption = 'This is simple, just select the date that you would like the rem' + 'inder on, then type in the message! You are then on your way to ' + 'never forgetting a thing again! ' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False WordWrap = True end object Label2: TLabel Left = 5 Top = 232 Width = 227 Height = 24 Alignment = taCenter AutoSize = False Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Memo1: TMemo Left = 256 Top = 88 Width = 137 Height = 121 MaxLength = 170 ScrollBars = ssVertical TabOrder = 0 OnKeyPress = Memo1KeyPress end object Calendar1: TCalendar Left = 16 Top = 112 Width = 209 Height = 113 ParentShowHint = False ShowHint = False StartOfWeek = 0 TabOrder = 1 end object ComboBox1: TComboBox Left = 16 Top = 80 Width = 97 Height = 21 ItemHeight = 13 Items.Strings = ( 'January' 'February' 'March' 'April' 'May' 'June' 'July' 'August' 'September' 'October' 'November' 'December') TabOrder = 2 Text = 'Select a month' OnChange = ComboBox1Change OnKeyPress = ComboBox1KeyPress end object Button1: TButton Left = 280 Top = 216 Width = 89 Height = 25 Caption = 'Schedule!' TabOrder = 3 OnClick = Button1Click end object ComboBox2: TComboBox Left = 136 Top = 80 Width = 89 Height = 21 ItemHeight = 13 Items.Strings = ( '1998' '1999' '2000' '2001' '2002' '2003' '2004' '2005' '2006' '2007' '2008' '2009' '2010') TabOrder = 4 Text = 'Select a year' OnChange = ComboBox2Change OnKeyPress = ComboBox2KeyPress end object ListBox1: TListBox Left = 480 Top = 24 Width = 57 Height = 17 ItemHeight = 13 TabOrder = 5 Visible = False end object Memo2: TMemo Left = 480 Top = 48 Width = 57 Height = 57 TabOrder = 6 end object ListBox2: TListBox Left = 520 Top = 120 Width = 33 Height = 17 ItemHeight = 13 TabOrder = 7 end object ListBox3: TListBox Left = 504 Top = 160 Width = 57 Height = 17 ItemHeight = 13 TabOrder = 8 end end