object EditForm: TEditForm
  Tag = 1
  Left = 184
  Top = 372
  Width = 516
  Height = 326
  HorzScrollBar.Visible = False
  VertScrollBar.Visible = False
  BiDiMode = bdLeftToRight
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  Icon.Data = {
    000001000200204001000100010030010000260000002040040001000400F002
    0000560100002800000020000000400000000100010000000000000100000000
    000000000000000000000000000000000000FFFFFF0000000000000018000000
    78000001FC000007FC00001FFE00007FE60001FF9F0007FE730007F9CF8003E7
    3980039CE7C00DF39CC01DCE73E03EF9CE603EE739F01F7CE7300F73FCF817BF
    73983BBF7E7C3DDF99FC7ED85FFE7F6F2FFE1FAECFF807D7FFE001E787800073
    78400018FD800003FE00000000000000000000000000FFFFE7FFFFFF83FFFFFE
    03FFFFF801FFFFE001FFFF8000FFFE0000FFF800007FF000007FF000003FF800
    003FF000001FE000001FC000000F8000000F80000007C0000007C0000003C000
    00038000000180000001000000000000000080000001E0000007F800000FFE00
    001FFF80003FFFE0007FFFF800FFFFFFFFFFFFFFFFFF28000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    000000008000008000000080800080000000800080008080000080808000C0C0
    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    00000000000000000000000000000000000000000000000FF000000000000000
    0000000000000FFFF00000000000000000000000000FFFFFFF00000000000000
    000000000FFFFFFFFF000000000000000000000FFFFFFFFFFFF0000000000000
    00000FFFFFFFFFFCCFF0000000000000000FFFFFFFFFFCCFFFFF000000000000
    0FFFFFFFFFFCCFFFCCFF0000000000000FFFFFFFFCCFFFCCFFFFF00000000000
    00FFFFFCCFFFCCFFFCCFF0000000000000FFFCCFFFCCFFFCCFFFFF0000000000
    F80FFFFFCCFFFCCFFFCCFF000000000FF80FFFCCFFFCCFFFCCFFFFF0000000FF
    FF80FFFFFCCFFFCCFFFCCFF0000000FFFF80FFFCCFFFCCFFFCCFFFFF0000000F
    FFF80FFFFFCCFFFCCFFFCCFF00000000FFF80FFFCCFFFFFFFFCCFFFFF0000008
    0FFF80FFFFFF5FFFCCFFFCCFF00000FF80FF80FFFFFF5FFFFFFCCFFFFF0000FF
    F80FF80FFFFFF55FFCCFFFFFFF000FFFFF80F80FF5555F5FFFFFFFFFFFF00FFF
    FFF80F80FFFF55F5FFFFFFFFFFF0000FFFFF8080FFF5FF55FFFFFFFFF0000000
    0FFFF8080FFFFF8888FFFFF000000000000FFF800FFFF0000888F00000000000
    00000FF800FF088880000800000000000000000F8000FFFFFF07800000000000
    0000000000FFFFFFFFF000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000FFFF
    E7FFFFFF83FFFFFE03FFFFF801FFFFE001FFFF8000FFFE0000FFF800007FF000
    007FF000003FF800003FF000001FE000001FC000000F8000000F80000007C000
    0007C0000003C00000038000000180000001000000000000000080000001E000
    0007F800000FFE00001FFF80003FFFE0007FFFF800FFFFFFFFFFFFFFFFFF0000
    000000000000}
  OldCreateOrder = True
  ParentBiDiMode = False
  PopupMenu = PopupMenu
  Position = poDefault
  Visible = True
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnDeactivate = FormDeactivate
  OnPaint = FormPaint
  PixelsPerInch = 125
  TextHeight = 16
  object Bar: TStatusBar
    Left = 0
    Top = 273
    Width = 508
    Height = 19
    Panels = <
      item
        Width = 100
      end
      item
        Width = 100
      end
      item
        Text = 'Insertion'
        Width = 90
      end
      item
        Width = 85
      end>
    SimplePanel = False
  end
  object Editor: TSynEdit
    Left = 0
    Top = 0
    Width = 508
    Height = 273
    Cursor = crIBeam
    Align = alClient
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -17
    Font.Name = 'Courier New'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    PopupMenu = PopupMenu
    TabOrder = 1
    OnClick = EditorClick
    OnDblClick = EditorDblClick
    OnEnter = EditorEnter
    OnKeyDown = EditorKeyDown
    OnKeyUp = EditorKeyUp
    Highlighter = SynPasSyn
    Keystrokes = <
      item
        Command = ecUp
        ShortCut = 38
        ShortCut2 = 0
      end
      item
        Command = ecSelUp
        ShortCut = 8230
        ShortCut2 = 0
      end
      item
        Command = ecScrollUp
        ShortCut = 16422
        ShortCut2 = 0
      end
      item
        Command = ecDown
        ShortCut = 40
        ShortCut2 = 0
      end
      item
        Command = ecSelDown
        ShortCut = 8232
        ShortCut2 = 0
      end
      item
        Command = ecScrollDown
        ShortCut = 16424
        ShortCut2 = 0
      end
      item
        Command = ecLeft
        ShortCut = 37
        ShortCut2 = 0
      end
      item
        Command = ecSelLeft
        ShortCut = 8229
        ShortCut2 = 0
      end
      item
        Command = ecWordLeft
        ShortCut = 16421
        ShortCut2 = 0
      end
      item
        Command = ecSelWordLeft
        ShortCut = 24613
        ShortCut2 = 0
      end
      item
        Command = ecRight
        ShortCut = 39
        ShortCut2 = 0
      end
      item
        Command = ecSelRight
        ShortCut = 8231
        ShortCut2 = 0
      end
      item
        Command = ecWordRight
        ShortCut = 16423
        ShortCut2 = 0
      end
      item
        Command = ecSelWordRight
        ShortCut = 24615
        ShortCut2 = 0
      end
      item
        Command = ecPageDown
        ShortCut = 34
        ShortCut2 = 0
      end
      item
        Command = ecSelPageDown
        ShortCut = 8226
        ShortCut2 = 0
      end
      item
        Command = ecPageBottom
        ShortCut = 16418
        ShortCut2 = 0
      end
      item
        Command = ecSelPageBottom
        ShortCut = 24610
        ShortCut2 = 0
      end
      item
        Command = ecPageUp
        ShortCut = 33
        ShortCut2 = 0
      end
      item
        Command = ecSelPageUp
        ShortCut = 8225
        ShortCut2 = 0
      end
      item
        Command = ecPageTop
        ShortCut = 16417
        ShortCut2 = 0
      end
      item
        Command = ecSelPageTop
        ShortCut = 24609
        ShortCut2 = 0
      end
      item
        Command = ecLineStart
        ShortCut = 36
        ShortCut2 = 0
      end
      item
        Command = ecSelLineStart
        ShortCut = 8228
        ShortCut2 = 0
      end
      item
        Command = ecEditorTop
        ShortCut = 16420
        ShortCut2 = 0
      end
      item
        Command = ecSelEditorTop
        ShortCut = 24612
        ShortCut2 = 0
      end
      item
        Command = ecLineEnd
        ShortCut = 35
        ShortCut2 = 0
      end
      item
        Command = ecSelLineEnd
        ShortCut = 8227
        ShortCut2 = 0
      end
      item
        Command = ecEditorBottom
        ShortCut = 16419
        ShortCut2 = 0
      end
      item
        Command = ecSelEditorBottom
        ShortCut = 24611
        ShortCut2 = 0
      end
      item
        Command = ecToggleMode
        ShortCut = 45
        ShortCut2 = 0
      end
      item
        Command = ecCopy
        ShortCut = 16429
        ShortCut2 = 0
      end
      item
        Command = ecPaste
        ShortCut = 8237
        ShortCut2 = 0
      end
      item
        Command = ecDeleteChar
        ShortCut = 46
        ShortCut2 = 0
      end
      item
        Command = ecCut
        ShortCut = 8238
        ShortCut2 = 0
      end
      item
        Command = ecDeleteLastChar
        ShortCut = 8
        ShortCut2 = 0
      end
      item
        Command = ecDeleteLastWord
        ShortCut = 16392
        ShortCut2 = 0
      end
      item
        Command = ecUndo
        ShortCut = 32776
        ShortCut2 = 0
      end
      item
        Command = ecRedo
        ShortCut = 40968
        ShortCut2 = 0
      end
      item
        Command = ecLineBreak
        ShortCut = 13
        ShortCut2 = 0
      end
      item
        Command = ecSelectAll
        ShortCut = 16449
        ShortCut2 = 0
      end
      item
        Command = ecCopy
        ShortCut = 16451
        ShortCut2 = 0
      end
      item
        Command = ecBlockIndent
        ShortCut = 24649
        ShortCut2 = 0
      end
      item
        Command = ecLineBreak
        ShortCut = 16461
        ShortCut2 = 0
      end
      item
        Command = ecInsertLine
        ShortCut = 16462
        ShortCut2 = 0
      end
      item
        Command = ecDeleteWord
        ShortCut = 16468
        ShortCut2 = 0
      end
      item
        Command = ecBlockUnindent
        ShortCut = 24661
        ShortCut2 = 0
      end
      item
        Command = ecPaste
        ShortCut = 16470
        ShortCut2 = 0
      end
      item
        Command = ecCut
        ShortCut = 16472
        ShortCut2 = 0
      end
      item
        Command = ecDeleteLine
        ShortCut = 16473
        ShortCut2 = 0
      end
      item
        Command = ecDeleteEOL
        ShortCut = 24665
        ShortCut2 = 0
      end
      item
        Command = ecUndo
        ShortCut = 16474
        ShortCut2 = 0
      end
      item
        Command = ecRedo
        ShortCut = 24666
        ShortCut2 = 0
      end
      item
        Command = ecGotoMarker0
        ShortCut = 32864
        ShortCut2 = 32816
      end
      item
        Command = ecGotoMarker1
        ShortCut = 32817
        ShortCut2 = 32865
      end
      item
        Command = ecGotoMarker2
        ShortCut = 32818
        ShortCut2 = 32866
      end
      item
        Command = ecGotoMarker3
        ShortCut = 32819
        ShortCut2 = 32867
      end
      item
        Command = ecGotoMarker4
        ShortCut = 32820
        ShortCut2 = 32868
      end
      item
        Command = ecGotoMarker5
        ShortCut = 32821
        ShortCut2 = 32869
      end
      item
        Command = ecGotoMarker6
        ShortCut = 32822
        ShortCut2 = 32870
      end
      item
        Command = ecGotoMarker7
        ShortCut = 32823
        ShortCut2 = 32871
      end
      item
        Command = ecGotoMarker8
        ShortCut = 32824
        ShortCut2 = 32872
      end
      item
        Command = ecGotoMarker9
        ShortCut = 32825
        ShortCut2 = 32873
      end
      item
        Command = ecSetMarker0
        ShortCut = 16432
        ShortCut2 = 16480
      end
      item
        Command = ecSetMarker1
        ShortCut = 16433
        ShortCut2 = 16481
      end
      item
        Command = ecSetMarker2
        ShortCut = 16434
        ShortCut2 = 16482
      end
      item
        Command = ecSetMarker3
        ShortCut = 16435
        ShortCut2 = 16483
      end
      item
        Command = ecSetMarker4
        ShortCut = 16436
        ShortCut2 = 16484
      end
      item
        Command = ecSetMarker5
        ShortCut = 16437
        ShortCut2 = 16485
      end
      item
        Command = ecSetMarker6
        ShortCut = 16438
        ShortCut2 = 16486
      end
      item
        Command = ecSetMarker7
        ShortCut = 16439
        ShortCut2 = 16487
      end
      item
        Command = ecSetMarker8
        ShortCut = 16440
        ShortCut2 = 16488
      end
      item
        Command = ecSetMarker9
        ShortCut = 16441
        ShortCut2 = 16489
      end
      item
        Command = ecNormalSelect
        ShortCut = 24654
        ShortCut2 = 0
      end
      item
        Command = ecColumnSelect
        ShortCut = 24643
        ShortCut2 = 0
      end
      item
        Command = ecLineSelect
        ShortCut = 24652
        ShortCut2 = 0
      end
      item
        Command = ecTab
        ShortCut = 9
        ShortCut2 = 0
      end
      item
        Command = ecShiftTab
        ShortCut = 8201
        ShortCut2 = 0
      end
      item
        Command = ecMatchBracket
        ShortCut = 24642
        ShortCut2 = 0
      end
      item
        Command = ecDeleteLastChar
        ShortCut = 8200
        ShortCut2 = 0
      end>
    MaxLeftChar = 1024
    MaxUndo = 1024
    Options = [eoAutoIndent, eoDragDropEditing, eoDropFiles, eoScrollPastEol, eoShowScrollHint, eoSmartTabs, eoTabsToSpaces]
    ReadOnly = False
    WantTabs = True
    OnChange = EditorChange
    OnDropFiles = EditorDropFiles
    OnSpecialLineColors = EditorSpecialLineColors
  end
  object PopupMenu: TPopupMenu
    OnPopup = PopupMenuPopup
    Left = 96
    Top = 64
    object UndoPopItem: TMenuItem
      Caption = '&Undo'
      ImageIndex = 6
      OnClick = Undo
    end
    object RedoPopItem: TMenuItem
      Caption = '&Redo'
      OnClick = Redo
    end
    object N10: TMenuItem
      Caption = '-'
    end
    object CutPopItem: TMenuItem
      Caption = 'Cu&t'
      ImageIndex = 27
      OnClick = Cut
    end
    object CopyPopItem: TMenuItem
      Caption = '&Copy'
      ImageIndex = 28
      OnClick = Copy
    end
    object PastePopItem: TMenuItem
      Caption = '&Paste'
      ImageIndex = 29
      OnClick = Paste
    end
    object N9: TMenuItem
      Caption = '-'
    end
    object InsertPopItem: TMenuItem
      Caption = '&Insert'
      ImageIndex = 30
      object CommentheaderPopItem: TMenuItem
        Caption = 'Comment header'
        OnClick = CommentheaderPopItemClick
      end
      object DateandtimePopItem: TMenuItem
        Caption = 'Date and time'
        OnClick = DateandtimePopItemClick
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object MainfunctionPopItem: TMenuItem
        Caption = 'Program begin/end'
        OnClick = MainfunctionPopItemClick
      end
      object Unitbeginend1: TMenuItem
        Caption = 'Unit begin/end'
        OnClick = Unitbeginend1Click
      end
      object WinMainfunctionPopItem: TMenuItem
        Caption = 'Windows program'
        OnClick = WinMainfunctionPopItemClick
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object ifPopItem: TMenuItem
        Caption = 'if .. then'
        OnClick = ifPopItemClick
      end
      object whilePopItem: TMenuItem
        Caption = 'while .. do'
        OnClick = whilePopItemClick
      end
      object dowhilePopItem: TMenuItem
        Caption = 'repeat .. until'
        OnClick = dowhilePopItemClick
      end
      object forPopItem: TMenuItem
        Caption = 'for .. to .. do'
        OnClick = forPopItemClick
      end
      object N5: TMenuItem
        Caption = '-'
      end
      object MessageBoxPopItem: TMenuItem
        Caption = 'MessageBox'
        OnClick = MessageBoxPopItemClick
      end
    end
    object TogglebookmarksPopItem: TMenuItem
      Caption = '&Toggle bookmarks'
      ImageIndex = 31
      object Bookmark01: TMenuItem
        Caption = 'Bookmark 0'
        OnClick = Bookmark01Click
      end
      object Bookmark11: TMenuItem
        Tag = 1
        Caption = 'Bookmark 1'
        OnClick = Bookmark01Click
      end
      object Bookmark21: TMenuItem
        Tag = 2
        Caption = 'Bookmark 2'
        OnClick = Bookmark01Click
      end
      object Bookmark31: TMenuItem
        Tag = 3
        Caption = 'Bookmark 3'
        OnClick = Bookmark01Click
      end
      object Bookmark41: TMenuItem
        Tag = 4
        Caption = 'Bookmark 4'
        OnClick = Bookmark01Click
      end
      object Bookmark51: TMenuItem
        Tag = 5
        Caption = 'Bookmark 5'
        OnClick = Bookmark01Click
      end
      object Bookmark61: TMenuItem
        Tag = 6
        Caption = 'Bookmark 6'
        OnClick = Bookmark01Click
      end
      object Bookmark71: TMenuItem
        Tag = 7
        Caption = 'Bookmark 7'
        OnClick = Bookmark01Click
      end
      object Bookmark81: TMenuItem
        Tag = 8
        Caption = 'Bookmark 8'
        OnClick = Bookmark01Click
      end
      object Bookmark91: TMenuItem
        Tag = 9
        Caption = 'Bookmark 9'
        OnClick = Bookmark01Click
      end
    end
    object GotobookmarksPopItem: TMenuItem
      Caption = '&Goto bookmarks'
      ImageIndex = 32
      object Bookmark02: TMenuItem
        Caption = 'Bookmark 0'
        OnClick = Bookmark02Click
      end
      object Bookmark12: TMenuItem
        Tag = 1
        Caption = 'Bookmark 1'
        OnClick = Bookmark02Click
      end
      object Bookmark22: TMenuItem
        Tag = 2
        Caption = 'Bookmark 2'
        OnClick = Bookmark02Click
      end
      object Bookmark32: TMenuItem
        Tag = 3
        Caption = 'Bookmark 3'
        OnClick = Bookmark02Click
      end
      object Bookmark42: TMenuItem
        Tag = 4
        Caption = 'Bookmark 4'
        OnClick = Bookmark02Click
      end
      object Bookmark52: TMenuItem
        Tag = 5
        Caption = 'Bookmark 5'
        OnClick = Bookmark02Click
      end
      object Bookmark62: TMenuItem
        Tag = 6
        Caption = 'Bookmark 6'
        OnClick = Bookmark02Click
      end
      object Bookmark72: TMenuItem
        Tag = 7
        Caption = 'Bookmark 7'
        OnClick = Bookmark02Click
      end
      object Bookmark82: TMenuItem
        Tag = 8
        Caption = 'Bookmark 8'
        OnClick = Bookmark02Click
      end
      object Bookmark92: TMenuItem
        Tag = 9
        Caption = 'Bookmark 9'
        OnClick = Bookmark02Click
      end
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object SelectAllPopItem: TMenuItem
      Caption = '&Select All'
      OnClick = SelectAll
    end
  end
  object ImageList: TImageList
    Left = 136
    Top = 64
    Bitmap = {
      4202000001000000424D42020000000000004200000028000000100000001000
      000001001000030000000002000000000000000000000000000000000000007C
      0000E00300001F00000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000000000000000FF7FFF7FFF7F0000
      00000000000000000000000000000000000000000000000000000000FF7FFF7F
      FF7F00000000000000000000000000000000000000000000000000000000FF7F
      FF7FFF7F00000000000000000000000000000000000000000000000000000000
      FF7FFF7FFF7F0000000000000000000000000000000000000000000000000000
      0000FF7FFF7F0000000000000000000000000000000000000000000000000000
      00000000FF7FFF7F000000000000000000000000000000000000000000000000
      00000000FF7FFF7F000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000424D7E000000000000003E0000002800000010000000
      1000000001000100000000004000000000000000000000000200000002000000
      00000000FFFFFF00FFFF0000F83F0000E00F0000CC47000084630000A0730000
      31F9000038F900003C7900003C3900003C1900009C0B00008C430000C4670000
      E00F0000F83F0000}
  end
  object FindDialog: TFindDialog
    OnClose = FindDialogClose
    OnShow = FindDialogShow
    Options = [frDown, frFindNext]
    OnFind = Find
    Left = 56
    Top = 104
  end
  object ReplaceDialog: TReplaceDialog
    Options = [frDown, frFindNext]
    OnFind = OnFindReplace
    OnReplace = Replace
    Left = 96
    Top = 104
  end
  object SaveFileDialog: TSaveDialog
    DefaultExt = 'pas|pp'
    Filter = 
      'Pascal source file (*.pas)|*.pas|Free Pascal source file (*.pp)|' +
      '*.pp|All files (*.*)|*.*'
    Options = [ofHideReadOnly, ofFileMustExist, ofNoReadOnlyReturn]
    Title = 'Save file'
    Left = 56
    Top = 64
  end
  object MarsCaption: TMarsCaption
    ActiveBeginColor = clBlack
    ActiveEndColor = clRed
    ActiveFontColor = clWhite
    InactiveBeginColor = clBlack
    InactiveEndColor = clSilver
    InactiveFontColor = clSilver
    ApplicationNameFont.Charset = DEFAULT_CHARSET
    ApplicationNameFont.Color = clWindowText
    ApplicationNameFont.Height = -11
    ApplicationNameFont.Name = 'MS Sans Serif'
    ApplicationNameFont.Style = [fsBold]
    CaptionFont.Charset = DEFAULT_CHARSET
    CaptionFont.Color = clWindowText
    CaptionFont.Height = -13
    CaptionFont.Name = 'MS Sans Serif'
    CaptionFont.Style = [fsBold]
    NumColors = 64
    AutoSize = True
    Left = 136
    Top = 104
  end
  object Completion: TSynCompletionProposal
    Position = 0
    NbLinesInWindow = 6
    ClSelect = cl3DLight
    AnsiStrings = False
    Width = 262
    ShortCut = 16416
    Editor = Editor
    EndOfTokenChr = '()[].'
    Left = 176
    Top = 104
  end
  object SynExporterRTF: TSynExporterRTF
    Color = clWindow
    DefaultFilter = 'Rich Text Format (*.rtf)|*.rtf'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Courier New'
    Font.Style = []
    Title = 'Untitled'
    UseBackground = False
    Left = 216
    Top = 64
  end
  object SynExporterHTML: TSynExporterHTML
    Color = clWindow
    DefaultFilter = 'HTML Document (*.htm,*.html)|*.htm;*.html'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Courier New'
    Font.Style = []
    Title = 'Untitled'
    UseBackground = False
    Left = 216
    Top = 104
  end
  object SynPasSyn: TSynPasSyn
    DefaultFilter = 'Pascal files (*.pas,*.dpr,*.dpk,*.inc)|*.pas;*.dpr;*.dpk;*.inc'
    CommentAttri.Style = [fsItalic]
    KeyAttri.Style = [fsBold]
    Left = 176
    Top = 64
  end
end
