object todo: Ttodo Left = 213 Top = 129 BorderStyle = bsToolWindow Caption = 'The To Do list' ClientHeight = 323 ClientWidth = 426 Color = 14547961 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter OnClose = FormClose PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 232 Top = 16 Width = 183 Height = 16 Caption = 'Enter what you need to do:' Font.Charset = DEFAULT_CHARSET Font.Color = clRed Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label2: TLabel Left = 248 Top = 120 Width = 145 Height = 140 Alignment = taCenter Caption = 'Enter in what you need to do to add it to the list. To remove an' + ' item, highlight it then click the remove button.' Color = 14547961 Font.Charset = DEFAULT_CHARSET Font.Color = clBlue Font.Height = -16 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentColor = False ParentFont = False WordWrap = True end object Label3: TLabel Left = 48 Top = 8 Width = 133 Height = 24 Caption = 'You need to...' Font.Charset = DEFAULT_CHARSET Font.Color = clBlue Font.Height = -19 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object ListBox1: TListBox Left = 8 Top = 32 Width = 217 Height = 241 ItemHeight = 13 TabOrder = 0 end object Edit1: TEdit Left = 232 Top = 40 Width = 185 Height = 21 MaxLength = 35 TabOrder = 1 end object Button1: TButton Left = 56 Top = 288 Width = 121 Height = 25 Caption = 'Remove Item' TabOrder = 2 OnClick = Button1Click end object Button2: TButton Left = 280 Top = 72 Width = 89 Height = 25 Caption = 'Add Item' TabOrder = 3 OnClick = Button2Click end end