object DebugInfoForm: TDebugInfoForm Left = 671 Top = 170 Width = 296 Height = 518 BorderIcons = [biSystemMenu] Caption = 'Debug Information' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] FormStyle = fsStayOnTop OldCreateOrder = False Position = poDefaultPosOnly PixelsPerInch = 96 TextHeight = 13 object ToolBar1: TToolBar Left = 0 Top = 0 Width = 288 Height = 28 ButtonHeight = 24 ButtonWidth = 26 Caption = 'ToolBar1' EdgeBorders = [ebLeft, ebRight, ebBottom] Flat = True Images = DebugForm.ImageList1 Indent = 2 ParentShowHint = False ShowHint = False TabOrder = 0 object SaveBtn: TToolButton Left = 2 Top = 0 Hint = 'Save the information' Caption = 'SaveBtn' ImageIndex = 9 ParentShowHint = False ShowHint = True OnClick = SaveBtnClick end object ToolButton3: TToolButton Left = 28 Top = 0 Width = 8 Caption = 'ToolButton3' ImageIndex = 8 Style = tbsSeparator end object PrintBtn: TToolButton Left = 36 Top = 0 Hint = 'Print the information' Caption = 'PrintBtn' ImageIndex = 10 ParentShowHint = False ShowHint = True OnClick = PrintBtnClick end end object InfoMemo: TRichEdit Left = 0 Top = 28 Width = 288 Height = 456 Align = alClient Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Courier New' Font.Style = [] ParentFont = False PlainText = True ReadOnly = True ScrollBars = ssVertical TabOrder = 1 end end