object fMain: TfMain
  Left = 0
  Top = 0
  Caption = 
    'Actor-2. '#1054' '#1087#1088#1080#1084#1077#1085#1077#1085#1080#1080' '#1073#1080#1073#1083#1080#1086#1090#1077#1082#1080' FastScript '#1074' '#1089#1074#1086#1080#1093' '#1087#1088#1086#1077#1082#1090#1072#1093'. '#1063#1072 +
    #1089#1090#1100'-2. '#1048#1083#1083#1102#1089#1090#1088#1080#1088#1091#1102#1097#1080#1081' '#1087#1088#1080#1084#1077#1088
  ClientHeight = 542
  ClientWidth = 900
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = 'Tahoma'
  Font.Style = []
  Position = poScreenCenter
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  TextHeight = 19
  object Panel_Bottom: TPanel
    Left = 0
    Top = 501
    Width = 900
    Height = 41
    Align = alBottom
    BevelOuter = bvNone
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object LabelDT: TLabel
      Left = 0
      Top = 0
      Width = 12
      Height = 41
      Align = alLeft
      Caption = '...'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      Layout = tlCenter
      ExplicitHeight = 16
    end
    object LabelPath: TLabel
      Left = 888
      Top = 0
      Width = 12
      Height = 41
      Align = alRight
      Caption = '...'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      Layout = tlCenter
      ExplicitHeight = 16
    end
  end
  object Panel_Top: TPanel
    Left = 0
    Top = 0
    Width = 900
    Height = 33
    Align = alTop
    BevelInner = bvLowered
    TabOrder = 1
    object Label_ActorName: TLabel
      Left = 2
      Top = 2
      Width = 896
      Height = 29
      Align = alClient
      Alignment = taCenter
      Caption = 'Actor-2'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -16
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      Layout = tlCenter
      ExplicitWidth = 53
      ExplicitHeight = 19
    end
  end
  object Panel_Main: TPanel
    Left = 0
    Top = 33
    Width = 900
    Height = 468
    Align = alClient
    TabOrder = 2
    object Splitter1: TSplitter
      Left = 489
      Top = 1
      Height = 466
      Color = clSilver
      ParentColor = False
      ExplicitLeft = 336
      ExplicitTop = 72
      ExplicitHeight = 100
    end
    object GroupBox1: TGroupBox
      Left = 1
      Top = 1
      Width = 488
      Height = 466
      Align = alLeft
      Caption = #1057#1087#1080#1089#1086#1082' '#1089#1082#1088#1080#1087#1090#1086#1074
      TabOrder = 0
      object Splitter2: TSplitter
        Left = 2
        Top = 281
        Width = 484
        Height = 3
        Cursor = crVSplit
        Align = alTop
        Color = clSilver
        ParentColor = False
        ExplicitLeft = -2
        ExplicitTop = 287
      end
      object Panel2: TPanel
        Left = 2
        Top = 21
        Width = 484
        Height = 36
        Align = alTop
        BevelInner = bvLowered
        TabOrder = 0
        object Label1: TLabel
          Left = 202
          Top = 2
          Width = 15
          Height = 32
          Align = alLeft
          Caption = '   '
          ExplicitHeight = 19
        end
        object sb_Refresh: TSpeedButton
          Left = 217
          Top = 2
          Width = 41
          Height = 32
          Hint = #1054#1073#1085#1086#1074#1080#1090#1100' '#1085#1072' '#1069#1082#1088#1072#1085#1077
          Align = alLeft
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000C40E0000C40E00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFFFF77FFFFFFFFFFFF00FF00F
            FFFFFFFFF77FF77FFFFFFFFFFFFFFFF0FFFFFFFFFFFFFFF7FFFFFFFFFFFFFFF0
            FFFFFFFFFFFFFFF7FFFFFFFFFFFFFFFF0FFFFFFFFFFFFFFF7FFFFFFFFF0FFFFF
            0FFFFFFFFF7FFFFF7FFFFFFF000FFFF0FFFFFFFF777FFFF7FFFFFFF00FFFFFF0
            FFFFFFF77FFFFFF7FFFFFFFF000FF00FFFFFFFFF777FF77FFFFFFFFFF0F00FFF
            FFFFFFFFF7F77FFFFFFFFFFFF0FFFFFFFFFFFFFFF7FFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
          NumGlyphs = 2
          ParentShowHint = False
          ShowHint = True
          OnClick = sb_RefreshClick
          ExplicitLeft = 223
          ExplicitTop = -2
        end
        object sb_Del: TSpeedButton
          Left = 385
          Top = 2
          Width = 41
          Height = 32
          Hint = #1059#1076#1072#1083#1080#1090#1100' '#1074#1099#1073#1088#1072#1085#1085#1099#1081' '#1045#1078#1077#1076#1085#1077#1074#1085#1080#1082
          Align = alLeft
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000C40E0000C40E00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000
            0FFFFFF7777777777FFFFFF0000000000FFFFFF7777777777FFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
          NumGlyphs = 2
          ParentShowHint = False
          ShowHint = True
          OnClick = sb_DelClick
          ExplicitLeft = 440
          ExplicitTop = -2
          ExplicitHeight = 37
        end
        object Label3: TLabel
          Left = 258
          Top = 2
          Width = 15
          Height = 32
          Align = alLeft
          Caption = '   '
          ExplicitHeight = 19
        end
        object Label4: TLabel
          Left = 370
          Top = 2
          Width = 15
          Height = 32
          Align = alLeft
          Caption = '   '
          ExplicitHeight = 19
        end
        object sb_Add: TSpeedButton
          Left = 273
          Top = 2
          Width = 41
          Height = 32
          Hint = #1044#1086#1073#1072#1074#1080#1090#1100' '#1085#1086#1074#1099#1081' '#1045#1078#1077#1076#1085#1077#1074#1085#1080#1082
          Align = alLeft
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000C40E0000C40E00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00FFF
            FFFFFFFFFFF77FFFFFFFFFFFFFF00FFFFFFFFFFFFFF77FFFFFFFFFFFFFF00FFF
            FFFFFFFFFFF77FFFFFFFFFFFFFF00FFFFFFFFFFFFFF77FFFFFFFFFF000000000
            0FFFFFF7777777777FFFFFF0000000000FFFFFF7777777777FFFFFFFFFF00FFF
            FFFFFFFFFFF77FFFFFFFFFFFFFF00FFFFFFFFFFFFFF77FFFFFFFFFFFFFF00FFF
            FFFFFFFFFFF77FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
          NumGlyphs = 2
          ParentShowHint = False
          ShowHint = True
          OnClick = sb_AddClick
          ExplicitLeft = 267
          ExplicitTop = -2
        end
        object Label48: TLabel
          Left = 314
          Top = 2
          Width = 15
          Height = 32
          Align = alLeft
          Caption = '   '
          ExplicitHeight = 19
        end
        object sb_Renum: TSpeedButton
          Left = 329
          Top = 2
          Width = 41
          Height = 32
          Hint = #1055#1077#1088#1077#1085#1091#1084#1077#1088#1086#1074#1072#1090#1100' '#1089' '#1096#1072#1075#1086#1084' 10'
          Align = alLeft
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000130B0000130B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
            003337777777777777F330FFFFFFFFFFF03337F33F333F3337F330FF0FFF0FFF
            F03337F37F337F3337F330FF0FFF0FFFF03337F37FFF7FFF37F330F00000000F
            F03337F77777777337F330FFF0FFF0FFF03337F337F337F337F330FFF0FFF0FF
            F03337F337FFF7FFF7F330FF00000000F03337F37777777737F330FFFF0FFF0F
            F03337F3337F337F37F330FFFF0FFF0FF03337F33373337337F330FFFFFFFFFF
            F03337F33333333FF7F330FFFFFFFF00003337F33333337777F330FFFFFFFF0F
            F03337FFFFFFFF7F373330999999990F033337777777777F733330FFFFFFFF00
            333337FFFFFFFF77333330000000000333333777777777733333}
          NumGlyphs = 2
          ParentShowHint = False
          ShowHint = True
          OnClick = sb_RenumClick
          ExplicitLeft = 337
          ExplicitTop = 4
        end
        object DBNavigator_Scr: TDBNavigator
          Left = 2
          Top = 2
          Width = 200
          Height = 32
          DataSource = dsScr
          VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbPost, nbCancel]
          Align = alLeft
          TabOrder = 0
        end
      end
      object DBGrid_Scr: TDBGrid
        Left = 2
        Top = 57
        Width = 484
        Height = 224
        Align = alTop
        DataSource = dsScr
        Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -16
        TitleFont.Name = 'Tahoma'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'npp'
            Width = 48
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'mnemocode'
            Width = 303
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'comment'
            Width = 194
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'id'
            Width = 68
            Visible = True
          end>
      end
      object GroupBox2: TGroupBox
        Left = 2
        Top = 284
        Width = 484
        Height = 180
        Align = alClient
        Caption = #1054' '#1089#1082#1088#1080#1087#1090#1077': '
        TabOrder = 2
        object DBMemo_Info: TDBMemo
          Left = 2
          Top = 21
          Width = 480
          Height = 157
          Align = alClient
          DataField = 'info'
          DataSource = dsScr
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -15
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          ScrollBars = ssVertical
          TabOrder = 0
          OnExit = DBMemo_InfoExit
        end
      end
    end
    object GroupBox3: TGroupBox
      Left = 492
      Top = 1
      Width = 407
      Height = 466
      Align = alClient
      Caption = 'FS-'#1057#1082#1088#1080#1087#1090': '
      TabOrder = 1
      object pcScr: TPageControl
        Left = 2
        Top = 21
        Width = 403
        Height = 443
        ActivePage = tsScrText
        Align = alClient
        TabOrder = 0
        OnChange = pcScrChange
        object tsScrText: TTabSheet
          Caption = #1058#1077#1082#1089#1090
          object Panel_Scr: TPanel
            Left = 0
            Top = 33
            Width = 395
            Height = 376
            Align = alClient
            BevelInner = bvLowered
            TabOrder = 0
            object fsSyntaxMemo1: TfsSyntaxMemo
              Left = 2
              Top = 2
              Width = 391
              Height = 372
              Cursor = crIBeam
              Align = alClient
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -13
              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 = -13
              CommentAttr.Name = 'Courier New'
              CommentAttr.Style = [fsItalic]
              KeywordAttr.Charset = DEFAULT_CHARSET
              KeywordAttr.Color = clWindowText
              KeywordAttr.Height = -13
              KeywordAttr.Name = 'Courier New'
              KeywordAttr.Style = [fsBold]
              StringAttr.Charset = DEFAULT_CHARSET
              StringAttr.Color = clBlue
              StringAttr.Height = -13
              StringAttr.Name = 'Courier New'
              StringAttr.Style = []
              TextAttr.Charset = DEFAULT_CHARSET
              TextAttr.Color = clWindowText
              TextAttr.Height = -13
              TextAttr.Name = 'Courier New'
              TextAttr.Style = []
              Lines.Strings = (
                '')
              ReadOnly = False
              SyntaxType = stPascal
              ShowFooter = True
              ShowGutter = True
              OnChange = fsSyntaxMemo1Change
              OnExit = fsSyntaxMemo1Exit
              ExplicitLeft = 522
              ExplicitTop = 134
              ExplicitWidth = 200
              ExplicitHeight = 200
            end
          end
          object Panel1: TPanel
            Left = 0
            Top = 0
            Width = 395
            Height = 33
            Align = alTop
            TabOrder = 1
            object sbCompile: TSpeedButton
              Left = 11
              Top = 1
              Width = 33
              Height = 31
              Hint = #1050#1086#1084#1087#1080#1083#1103#1094#1080#1103
              Align = alLeft
              Glyph.Data = {
                76010000424D7601000000000000760000002800000020000000100000000100
                04000000000000010000120B0000120B00001000000000000000000000000000
                800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
                FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
                333333333337FF3333333333330003333333333333777F333333333333080333
                3333333F33777FF33F3333B33B000B33B3333373F777773F7333333BBB0B0BBB
                33333337737F7F77F333333BBB0F0BBB33333337337373F73F3333BBB0F7F0BB
                B333337F3737F73F7F3333BB0FB7BF0BB3333F737F37F37F73FFBBBB0BF7FB0B
                BBB3773F7F37337F377333BB0FBFBF0BB333337F73F333737F3333BBB0FBF0BB
                B3333373F73FF7337333333BBB000BBB33333337FF777337F333333BBBBBBBBB
                3333333773FF3F773F3333B33BBBBB33B33333733773773373333333333B3333
                333333333337F33333333333333B333333333333333733333333}
              NumGlyphs = 2
              ParentShowHint = False
              ShowHint = True
              OnClick = sbCompileClick
              ExplicitLeft = 15
              ExplicitTop = -2
            end
            object Label2: TLabel
              Left = 1
              Top = 1
              Width = 10
              Height = 31
              Align = alLeft
              Caption = '  '
              ExplicitHeight = 19
            end
            object Label5: TLabel
              Left = 44
              Top = 1
              Width = 10
              Height = 31
              Align = alLeft
              Caption = '  '
              ExplicitHeight = 19
            end
            object sbExec: TSpeedButton
              Left = 54
              Top = 1
              Width = 33
              Height = 31
              Hint = #1042#1099#1087#1086#1083#1085#1077#1085#1080#1077
              Align = alLeft
              Glyph.Data = {
                76010000424D7601000000000000760000002800000020000000100000000100
                04000000000000010000120B0000120B00001000000000000000000000000000
                800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
                FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
                0000377777777777777703030303030303037F7F7F7F7F7F7F7F000000000000
                00007777777777777777933393303933337073F37F37F73F3377393393303393
                379037FF7F37F37FF777379793303379793037777337F3777737339933303339
                93303377F3F7F3F77F3733993930393993303377F737F7377FF7399993303399
                999037777337F377777793993330333393307377FF37F3337FF7333993303333
                993033377F37F33377F7333993303333993033377337F3337737333333303333
                33303FFFFFF7FFFFFFF700000000000000007777777777777777030303030303
                03037F7F7F7F7F7F7F7F00000000000000007777777777777777}
              NumGlyphs = 2
              ParentShowHint = False
              ShowHint = True
              OnClick = sbExecClick
              ExplicitLeft = 50
              ExplicitTop = -2
            end
          end
        end
        object tsScrIn: TTabSheet
          Caption = #1042#1093#1086#1076#1085#1099#1077' '#1087#1072#1088#1072#1084'.'
          ImageIndex = 1
          object DBMemoParamIn: TDBMemo
            Left = 0
            Top = 0
            Width = 395
            Height = 409
            Align = alClient
            DataField = 'params_in'
            DataSource = dsScr
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -15
            Font.Name = 'Tahoma'
            Font.Style = []
            ParentFont = False
            ScrollBars = ssBoth
            TabOrder = 0
            WordWrap = False
            OnExit = DBMemoParamInExit
          end
        end
        object tsScrOut: TTabSheet
          Caption = #1042#1099#1093#1086#1076#1085#1099#1077' '#1087#1072#1088#1072#1084'.'
          ImageIndex = 2
          object DBMemoParamOut: TDBMemo
            Left = 0
            Top = 0
            Width = 395
            Height = 409
            Align = alClient
            DataField = 'params_out'
            DataSource = dsScr
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -15
            Font.Name = 'Tahoma'
            Font.Style = []
            ParentFont = False
            ScrollBars = ssBoth
            TabOrder = 0
            WordWrap = False
            OnExit = DBMemoParamOutExit
          end
        end
      end
    end
  end
  object FDConn: TFDConnection
    Params.Strings = (
      'DriverID=SQLite'
      
        'Database=D:\d10\PAS\roamer55ru\d10.pas\FS\FS_002.'#1055#1072#1088#1072#1084#1077#1090#1088#1099'\FS_02' +
        '_io_param.pas\FS_02_io_param.db')
    LoginPrompt = False
    AfterConnect = FDConnAfterConnect
    BeforeConnect = FDConnBeforeConnect
    BeforeDisconnect = FDConnBeforeDisconnect
    Left = 38
  end
  object qTMP: TFDQuery
    Connection = FDConn
    Left = 70
  end
  object qScr: TFDQuery
    BeforeClose = qScrBeforeClose
    BeforeInsert = qScrBeforeInsert
    BeforePost = qScrBeforePost
    BeforeDelete = qScrBeforeDelete
    AfterScroll = qScrAfterScroll
    Connection = FDConn
    SQL.Strings = (
      'select'
      '  *'
      'from'
      '  fs_scripts'
      'order '
      '  by npp'
      '')
    Left = 134
    object qScrnpp: TIntegerField
      DisplayLabel = 'N'#1087'/'#1087
      DisplayWidth = 5
      FieldName = 'npp'
      Origin = 'npp'
    end
    object qScrmnemocode: TStringField
      DisplayLabel = #1052#1085#1077#1084#1086#1082#1086#1076
      DisplayWidth = 20
      FieldName = 'mnemocode'
      Origin = 'mnemocode'
      Size = 100
    end
    object qScrcomment: TStringField
      DisplayLabel = #1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081
      DisplayWidth = 20
      FieldName = 'comment'
      Origin = 'comment'
      Size = 100
    end
    object qScrid: TFDAutoIncField
      DisplayWidth = 4
      FieldName = 'id'
      Origin = 'id'
      ProviderFlags = [pfInWhere, pfInKey]
    end
    object qScrfs_script: TWideMemoField
      FieldName = 'fs_script'
      Origin = 'fs_script'
      Visible = False
      BlobType = ftWideMemo
    end
    object qScrparams_in: TWideMemoField
      FieldName = 'params_in'
      Origin = 'params_in'
      Visible = False
      BlobType = ftWideMemo
    end
    object qScrparams_out: TWideMemoField
      FieldName = 'params_out'
      Origin = 'params_out'
      Visible = False
      BlobType = ftWideMemo
    end
    object qScrmnemocode_lower: TStringField
      FieldName = 'mnemocode_lower'
      Origin = 'mnemocode_lower'
      Visible = False
      Size = 100
    end
    object qScrinfo: TWideMemoField
      FieldName = 'info'
      Origin = 'info'
      Visible = False
      BlobType = ftWideMemo
    end
  end
  object dsScr: TDataSource
    DataSet = qScr
    Left = 166
    Top = 1
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 100
    OnTimer = Timer1Timer
    Left = 8
  end
  object fsScript1: TfsScript
    SyntaxType = 'PascalScript'
    Left = 208
  end
  object fsPascal1: TfsPascal
    Left = 248
    Top = 8
  end
  object qTMPrt: TFDQuery
    Connection = FDConn
    Left = 102
  end
  object fsClassesRTTI1: TfsClassesRTTI
    Left = 280
    Top = 8
  end
end