object Form1: TForm1
  Left = 295
  Height = 457
  Top = 168
  Width = 634
  ActiveControl = RichMemo1
  Caption = 'Form1'
  ClientHeight = 457
  ClientWidth = 634
  OnCreate = FormCreate
  LCLVersion = '0.9.29'
  object RichMemo1: TRichMemo
    Left = 15
    Height = 358
    Top = 16
    Width = 619
    Anchors = [akTop, akLeft, akRight, akBottom]
    Font.Height = -13
    Font.Name = 'Tahoma'
    HideSelection = False
    Lines.Strings = (
      'RichMemo1'
    )
    OnChange = RichMemo1Change
    ParentFont = False
    ScrollBars = ssVertical
    TabOrder = 0
  end
  object Button1: TButton
    Left = 24
    Height = 25
    Top = 382
    Width = 160
    Anchors = [akLeft, akBottom]
    Caption = 'Make Bold and Red'
    OnClick = Button1Click
    TabOrder = 1
    TabStop = False
  end
  object Button2: TButton
    Left = 192
    Height = 25
    Top = 382
    Width = 97
    Anchors = [akLeft, akBottom]
    Caption = 'Get Attribs'
    OnClick = Button2Click
    TabOrder = 2
    TabStop = False
  end
  object Button3: TButton
    Left = 304
    Height = 25
    Top = 382
    Width = 96
    Anchors = [akLeft, akBottom]
    Caption = 'Select Font'
    OnClick = Button3Click
    TabOrder = 3
    TabStop = False
  end
  object Button4: TButton
    Left = 528
    Height = 25
    Top = 382
    Width = 75
    Anchors = [akLeft, akBottom]
    Caption = 'Save RTF'
    OnClick = Button4Click
    TabOrder = 4
    TabStop = False
  end
  object Button5: TButton
    Left = 440
    Height = 25
    Top = 382
    Width = 75
    Anchors = [akLeft, akBottom]
    Caption = 'Load RTF'
    OnClick = Button5Click
    TabOrder = 5
    TabStop = False
  end
  object Button6: TButton
    Left = 24
    Height = 25
    Top = 415
    Width = 160
    Anchors = [akLeft, akBottom]
    Caption = 'Next Style Range'
    OnClick = Button6Click
    TabOrder = 6
    TabStop = False
  end
  object FontDialog1: TFontDialog
    MinFontSize = 0
    MaxFontSize = 0
    left = 352
    top = 429
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = '.rtf'
    Filter = 'RichText file (*.rtf)|*.rtf'
    Options = [ofOverwritePrompt, ofEnableSizing, ofViewDetail]
    left = 280
    top = 429
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = '.rtf'
    Filter = 'RichText file (*.rtf)|*.rtf'
    left = 208
    top = 429
  end
end