object MainForm: TMainForm Left = 192 Top = 190 Width = 640 Height = 411 Caption = 'Program Memory Information' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 88 Top = 344 Width = 242 Height = 24 Caption = 'Program Memory Allocations' Font.Charset = DEFAULT_CHARSET Font.Color = clTeal Font.Height = -19 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Chart1: TChart Left = 16 Top = 8 Width = 601 Height = 321 BottomWall.Color = clWhite Foot.Font.Charset = DEFAULT_CHARSET Foot.Font.Color = clRed Foot.Font.Height = -11 Foot.Font.Name = 'Arial' Foot.Font.Style = [fsItalic] LeftWall.Color = 8454143 Title.Font.Charset = DEFAULT_CHARSET Title.Font.Color = clMaroon Title.Font.Height = -13 Title.Font.Name = 'Arial' Title.Font.Style = [fsBold] Title.Text.Strings = ( 'System.GetHeapStatus') BottomAxis.LabelsSeparation = 20 TabOrder = 0 object Series1: TBarSeries ColorEachPoint = True Marks.ArrowLength = 8 Marks.Visible = True SeriesColor = clRed XValues.DateTime = False XValues.Name = 'X' XValues.Multiplier = 1.000000000000000000 XValues.Order = loAscending YValues.DateTime = False YValues.Name = 'Bar' YValues.Multiplier = 1.000000000000000000 YValues.Order = loNone end end object Button1: TButton Left = 440 Top = 344 Width = 75 Height = 25 Caption = 'Show Info' TabOrder = 1 OnClick = Button1Click end object BitBtn1: TBitBtn Left = 536 Top = 344 Width = 75 Height = 25 TabOrder = 2 Kind = bkClose end end