object Headftr: THeadftr
  Left = 140
  Top = 125
  Width = 607
  Height = 279
  Caption = 'Header and Footer'
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 113
    Width = 599
    Height = 21
    Align = alTop
    Caption = 'Footer'
    TabOrder = 0
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 599
    Height = 21
    Align = alTop
    Caption = 'Header'
    TabOrder = 1
  end
  object Header: TDBWPRichText
    Left = 0
    Top = 21
    Width = 599
    Height = 92
    Cursor = crIBeam
    DataField = 'Header'
    DataSource = wordprocessor.compcontset
    HyperLinkCursor = crDefault
    NoBlockMarking = False
    Inserting = True
    OneClickHyperlink = False
    Zooming = 100
    Resizing = 100
    Align = alTop
    BorderStyle = bsSingle
    Font.Color = clBlack
    Font.Height = 0
    Font.Name = 'Arial'
    Font.Style = []
    ParentColor = False
    ScrollBars = ssNone
    TabOrder = 2
    TabStop = True
    WantTabs = True
    GetTextToInsert = HeaderGetTextToInsert
  end
  object Footer: TDBWPRichText
    Left = 0
    Top = 134
    Width = 599
    Height = 100
    Cursor = crIBeam
    DataField = 'Footer'
    DataSource = wordprocessor.compcontset
    HyperLinkCursor = crDefault
    NoBlockMarking = False
    Inserting = True
    OneClickHyperlink = False
    Zooming = 100
    Resizing = 100
    Align = alTop
    BorderStyle = bsSingle
    Font.Color = clBlack
    Font.Height = 0
    Font.Name = 'Arial'
    Font.Style = []
    ParentColor = False
    ScrollBars = ssNone
    TabOrder = 3
    TabStop = True
    WantTabs = True
    GetTextToInsert = HeaderGetTextToInsert
  end
  object MainMenu1: TMainMenu
    Left = 56
    Top = 40
    object Insert1: TMenuItem
      Caption = 'Insert'
      ShortCut = 0
      object PageNumber1: TMenuItem
        Caption = 'Page Number'
        ShortCut = 0
        OnClick = PageNumber1Click
      end
      object Date1: TMenuItem
        Caption = 'Current Date'
        ShortCut = 0
        OnClick = Date1Click
      end
    end
    object Exit1: TMenuItem
      Caption = 'Exit'
      ShortCut = 0
    end
  end
end