object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 677
  ClientWidth = 903
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = 'Tahoma'
  Font.Style = []
  Position = poScreenCenter
  OnCreate = FormCreate
  TextHeight = 19
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 903
    Height = 41
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    Visible = False
  end
  object Panel2: TPanel
    Left = 0
    Top = 41
    Width = 903
    Height = 636
    Align = alClient
    BevelInner = bvLowered
    TabOrder = 1
    object Panel3: TPanel
      Left = 2
      Top = 2
      Width = 899
      Height = 33
      Align = alTop
      BevelInner = bvLowered
      TabOrder = 0
      object SpeedButton1: TSpeedButton
        Left = 2
        Top = 2
        Width = 199
        Height = 29
        Align = alLeft
        Caption = #1042#1099#1087#1086#1083#1085#1080#1090#1100' '#1089#1082#1088#1080#1087#1090
        OnClick = SpeedButton1Click
      end
    end
    object GroupBox1: TGroupBox
      Left = 2
      Top = 35
      Width = 899
      Height = 599
      Align = alClient
      Caption = #1057#1082#1088#1080#1087#1090': '
      TabOrder = 1
      object Panel_fsSyntMemo: TPanel
        Left = 2
        Top = 21
        Width = 895
        Height = 576
        Align = alClient
        BevelInner = bvLowered
        TabOrder = 0
        object fsSyntaxMemo1: TfsSyntaxMemo
          Left = 2
          Top = 2
          Width = 891
          Height = 572
          Cursor = crIBeam
          Align = alClient
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -15
          Font.Name = 'Courier New'
          Font.Style = []
          ParentColor = False
          ParentFont = False
          TabOrder = 0
          TabStop = True
          BlockColor = clHighlight
          BlockFontColor = clHighlightText
          CommentAttr.Charset = DEFAULT_CHARSET
          CommentAttr.Color = clTeal
          CommentAttr.Height = -15
          CommentAttr.Name = 'Courier New'
          CommentAttr.Style = [fsItalic]
          KeywordAttr.Charset = DEFAULT_CHARSET
          KeywordAttr.Color = clWindowText
          KeywordAttr.Height = -15
          KeywordAttr.Name = 'Courier New'
          KeywordAttr.Style = [fsBold]
          StringAttr.Charset = DEFAULT_CHARSET
          StringAttr.Color = clBlue
          StringAttr.Height = -15
          StringAttr.Name = 'Courier New'
          StringAttr.Style = []
          TextAttr.Charset = DEFAULT_CHARSET
          TextAttr.Color = clWindowText
          TextAttr.Height = -15
          TextAttr.Name = 'Courier New'
          TextAttr.Style = []
          Lines.Strings = (
            '#language PascalScript'
            ''
            'Const'
            '  //FastScript '#1087#1086#1079#1074#1086#1083#1103#1077#1090' '#1083#1077#1075#1082#1086
            '  //'#1083#1086#1082#1072#1083#1080#1079#1086#1074#1072#1090#1100' ('#1087#1088#1080#1084#1077#1085#1080#1090#1077#1083#1100#1085#1086' '#1082' '#1082#1080#1088#1080#1083#1083#1080#1094#1077')'
            '  //'#1080#1084#1077#1085#1072' '#1082#1086#1085#1089#1090#1072#1085#1090

              '  '#1052#1072#1089#1082#1072#1060#1072#1081#1083#1086#1074' = '#39'D:\fs_test\*.*'#39'; //'#1069#1090#1072' '#1087#1072#1087#1082#1072' '#1076#1086#1083#1078#1085#1072' '#1089#1091#1097#1077#1089#1090#1074#1086#1074#1072#1090 +
              #1100' '#1085#1072' '#1084#1086#1084#1077#1085#1090' '#1074#1099#1087#1086#1083#1085#1077#1085#1080#1103' '#1089#1082#1088#1080#1087#1090#1072
            ''
            'Var'
            '  //FastScript '#1087#1086#1079#1074#1086#1083#1103#1077#1090' '#1083#1077#1075#1082#1086
            '  //'#1083#1086#1082#1072#1083#1080#1079#1086#1074#1072#1090#1100' ('#1087#1088#1080#1084#1077#1085#1080#1090#1077#1083#1100#1085#1086' '#1082' '#1082#1080#1088#1080#1083#1083#1080#1094#1077')'
            '  //'#1080#1084#1077#1085#1072' '#1087#1077#1088#1077#1084#1077#1085#1085#1099#1093
            '  '#1057#1087#1080#1089#1086#1082': TStrings;'
            ''
            'BEGIN'
            ''
            '  '#1057#1087#1080#1089#1086#1082' := TStringList.Create;'
            '  TRY'
            '    //'#1053#1086#1074#1072#1103' '#1087#1088#1086#1094#1077#1076#1091#1088#1072
            '    '#1069#1082#1088#1072#1085'_'#1050#1091#1088#1089#1086#1088'('#39'crHourGlass'#39');'

              '    //'#1053#1086#1074#1072#1103' '#1092#1091#1085#1082#1094#1080#1103' ('#1087#1072#1087#1082#1072' '#1052#1072#1089#1082#1072#1060#1072#1081#1083#1086#1074' '#1076#1086#1083#1078#1085#1072' '#1089#1091#1097#1077#1089#1090#1074#1086#1074#1072#1090#1100' '#1085#1072' '#1084#1086 +
              #1084#1077#1085#1090' '#1074#1099#1087#1086#1083#1085#1077#1085#1080#1103' '#1089#1082#1088#1080#1087#1090#1072')'
            '    '#1060#1072#1081#1083#1099'_'#1057#1087#1080#1089#1086#1082'_'#1055#1086#1083#1091#1095#1080#1090#1100'('
            '                          '#1057#1087#1080#1089#1086#1082','
            '                          '#1052#1072#1089#1082#1072#1060#1072#1081#1083#1086#1074
            '                         );'
            '    '#1069#1082#1088#1072#1085'_'#1050#1091#1088#1089#1086#1088'('#39'crDefault'#39');'
            '    ShowMessage('#39#1057#1087#1080#1089#1086#1082' '#1092#1072#1081#1083#1086#1074':'#39'+#10+'#1057#1087#1080#1089#1086#1082'.Text);'
            ''
            '    //........................................'
            '    //'#1053#1086#1074#1099#1077' '#1082#1086#1085#1089#1090#1072#1085#1090#1099

              '    ShowMessage('#39#1059#1089#1082#1086#1088'_'#1089#1074#1086#1073'_'#1087#1072#1076#1077#1085'= '#39'+FloatToStr('#1059#1089#1082#1086#1088#1077#1085#1080#1077'_'#1089#1074#1086#1073#1086#1076 +
              #1085#1086#1075#1086'_'#1087#1072#1076#1077#1085#1080#1103'));'
            '    ShowMessage('#39#1057#1082#1086#1088#1086#1089#1090#1100' '#1089#1074#1077#1090#1072'= '#39'+FloatToStr('#1057#1082#1086#1088#1086#1089#1090#1100'_'#1089#1074#1077#1090#1072'));'
            '    ShowMessage('#39'Speed of light= '#39'+FloatToStr(Speed_of_light));'
            '    //........................................'
            ''
            '  FINALLY'
            '    '#1057#1087#1080#1089#1086#1082'.Free;'
            '    '#1057#1087#1080#1089#1086#1082':=nil;'
            '    '#1069#1082#1088#1072#1085'_'#1050#1091#1088#1089#1086#1088'('#39'crDefault'#39');'
            '  END;'
            ''
            'END.'
            '')
          ReadOnly = False
          SyntaxType = stPascal
          ShowFooter = True
          ShowGutter = True
        end
      end
    end
  end
  object fsScript1: TfsScript
    SyntaxType = 'PascalScript'
    Left = 16
    Top = 8
  end
  object fsPascal1: TfsPascal
    Left = 64
    Top = 8
  end
  object fsClassesRTTI1: TfsClassesRTTI
    Left = 120
    Top = 8
  end
end