01type
02  IFloatInfo = interface(ITypeInfo)
03    ['{E9B56C6D-47DC-4AB9-9E80-6EEF77708704}']
04    function Get_MaxValue: Double; safecall;
05    function Get_MaxValueUsed: WordBool; safecall;
06    function Get_MinValue: Double; safecall;
07    function Get_MinValueUsed: WordBool; safecall;
08    function Get_Precision: Integer; safecall;
09    function Get_Scale: Integer; safecall;
10    property MaxValue: Double read Get_MaxValue;
11    property MaxValueUsed: WordBool read Get_MaxValueUsed;
12    property MinValue: Double read Get_MinValue;
13    property MinValueUsed: WordBool read Get_MinValueUsed;
14    property Precision: Integer read Get_Precision;
15    property Scale: Integer read Get_Scale;
16  end;