object FrmMessage: TFrmMessage
  Left = 206
  Top = 95
  HelpContext = 9110
  BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
  BorderStyle = bsDialog
  Caption = 'Intercent bericht'
  ClientHeight = 289
  ClientWidth = 361
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object BtnOk: TBitBtn
    Left = 164
    Top = 256
    Width = 90
    Height = 25
    HelpContext = 9112
    Caption = 'Op&halen'
    Default = True
    TabOrder = 1
    OnClick = BtnOkClick
    NumGlyphs = 2
  end
  object BtnCancel: TBitBtn
    Left = 64
    Top = 256
    Width = 90
    Height = 25
    HelpContext = 9910
    Cancel = True
    Caption = '&Sluiten'
    TabOrder = 0
    OnClick = BtnCancelClick
    NumGlyphs = 2
  end
  object BtnSave: TBitBtn
    Left = 264
    Top = 256
    Width = 90
    Height = 25
    HelpContext = 9111
    Cancel = True
    Caption = '&Opslaan'
    TabOrder = 2
    OnClick = BtnSaveClick
    NumGlyphs = 2
  end
  object Red: TRichEdit
    Left = 8
    Top = 8
    Width = 345
    Height = 233
    HelpContext = 9110
    Color = clNavy
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PlainText = True
    ReadOnly = True
    ScrollBars = ssVertical
    TabOrder = 3
    WordWrap = False
  end
  object RedPreview: TRichEdit
    Left = 8
    Top = 80
    Width = 345
    Height = 89
    Lines.Strings = (
      'RedPreview')
    PlainText = True
    TabOrder = 4
    Visible = False
  end
  object PanStatus: TPanel
    Left = 10
    Top = 208
    Width = 343
    Height = 33
    HelpContext = 9110
    BevelOuter = bvLowered
    Caption = 'Controleren op nieuwe berichten...'
    TabOrder = 5
    Visible = False
  end
  object DlgSave: TSaveDialog
    DefaultExt = '*.txt'
    FileEditStyle = fsEdit
    Filter = 'Tekstbestanden|*.txt'
    Options = [ofHideReadOnly]
    Title = 'Bericht opslaan als...'
    Left = 32
    Top = 232
  end
  object Web: T_HTTP
    URL = 'http://www.xs4all.nl/~finiware/intercent.msg'
    NoCache = True
    ContentTypePost = 'application/x-www-form-urlencoded'
    Left = 32
    Top = 256
  end
end