object SetupCredMsg31: TSetupCredMsg31
  Left = 36
  Top = 126
  Width = 551
  Height = 275
  Caption = 'Create Creditbox Message'
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PixelsPerInch = 96
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  TextHeight = 13
  object Image1: TImage
    Left = 206
    Top = 9
    Width = 217
    Height = 185
  end
  object Label1: TLabel
    Left = 209
    Top = 201
    Width = 20
    Height = 13
    Caption = 'Fast'
  end
  object Label2: TLabel
    Left = 398
    Top = 201
    Width = 23
    Height = 13
    Caption = 'Slow'
  end
  object Label3: TLabel
    Left = 295
    Top = 200
    Width = 49
    Height = 13
    Caption = 'Speed = 5'
  end
  object Memo1: TMemo
    Left = 11
    Top = 10
    Width = 188
    Height = 182
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ScrollBars = ssBoth
    TabOrder = 0
    OnChange = Memo1Change
  end
  object BitBtn2: TBitBtn
    Left = 440
    Top = 7
    Width = 89
    Height = 33
    Caption = 'Font'
    TabOrder = 1
    OnClick = BitBtn2Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333333333333333333FF3FFFFFFF33FFF003000000033
      0000773777777733777703330033033330037FFF77F37F33377F700007330333
      3003777777337FFFF77F303003337000007337F77F3377777773303073333033
      003337F77F3337F377F337007333303300333777733337FF77F3330033333703
      07333377F333377F7733330733333300033333773FF3F3777F33333399393300
      033333337737FF777F333333339993307333333333777FF77333333333999930
      3333333333777737333333333333333333333333333333333333333333333333
      3333333333333333333333333333333333333333333333333333}
    NumGlyphs = 2
    Style = bsNew
  end
  object SpeedScrollBar: TScrollBar
    Left = 210
    Top = 216
    Width = 213
    Height = 17
    Max = 10
    Position = 5
    TabOrder = 2
    OnChange = SpeedScrollBarChange
  end
  object ColorGrid: TColorGrid
    Left = 9
    Top = 193
    Width = 192
    Height = 40
    GridOrdering = go8x2
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    OnChange = ColorGridChange
  end
  object BitBtn1: TBitBtn
    Left = 440
    Top = 99
    Width = 89
    Height = 33
    TabOrder = 4
    OnClick = BitBtn1Click
    Kind = bkCancel
    Style = bsNew
  end
  object BitBtn3: TBitBtn
    Left = 440
    Top = 201
    Width = 89
    Height = 33
    TabOrder = 5
    OnClick = BitBtn3Click
    Kind = bkOK
    Style = bsNew
  end
end