object Form6: TForm6
  Left = 405
  Top = 290
  ActiveControl = EventTime
  BorderStyle = bsDialog
  Caption = 'Add event'
  ClientHeight = 79
  ClientWidth = 354
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Scaled = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 0
    Top = 0
    Width = 354
    Height = 79
    Align = alClient
    Shape = bsFrame
  end
  object Bevel2: TBevel
    Left = 8
    Top = 8
    Width = 337
    Height = 62
  end
  object SpeedButton94: TSpeedButton
    Left = 191
    Top = 40
    Width = 73
    Height = 25
    Caption = '&Ok'
    Flat = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton94Click
  end
  object SpeedButton2: TSpeedButton
    Left = 264
    Top = 40
    Width = 73
    Height = 25
    Caption = '&Cancel'
    Flat = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton2Click
  end
  object EventText: TEdit
    Left = 64
    Top = 16
    Width = 273
    Height = 21
    MaxLength = 50
    TabOrder = 1
    Text = 'EventText'
    OnKeyDown = EventTextKeyDown
  end
  object EventTime: TMaskEdit
    Left = 16
    Top = 16
    Width = 41
    Height = 21
    EditMask = '!90:00;1;_'
    MaxLength = 5
    TabOrder = 0
    Text = '  :  '
    OnKeyDown = EventTimeKeyDown
  end
end