Range mit InRange- function auslesen ?

[Chris211183]

Delphi-Quellcode:

object Form1: TForm1
  Left = 192
  Top = 114
  Width = 783
  Height = 540
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object HixBarGraph1: THixBarGraph
    Left = 184
    Top = 216
    Width = 281
    Height = 73
    Barwidth = 10
    Color = clBtnFace
    BarColor = clBtnFace
    BevelColor1 = clBtnShadow
    BevelColor2 = clBtnHighlight
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Kind = sbHorizontal
    LabelingStyle = lbsNone
    LabelingFont.Charset = DEFAULT_CHARSET
    LabelingFont.Color = clWindowText
    LabelingFont.Height = -11
    LabelingFont.Name = 'Arial'
    LabelingFont.Style = []
    AutoConfig = False
    ValueMax = 100
    RangeColor = clBlack
    RangeCurrent = 1
    RangeLimit = 100
    RangeNumber = 0
    Visible = True
    OffsetLower = 8
    OffsetUpper = 8
    LabelingGap = 5
    LabelingDecimals = 1
    LabelingOrientation = lboAbove
    TabOrder = 0
    BevelOuter = bvNone
    Caption = 'HixBarGraph'
    DockOrientation = doNoOrient
  end
end

So sieht es aus, wenn ich meine Komponente auf dem Formular habe und mich rechtsklick "Ansicht als Text" wähle...
Nun soll dort aber noch ein Range angezeigt werden...