1type
2  IStringInfo = interface(ITypeInfo)
3    ['{74AC4C03-E803-421B-B30D-1A2D2C49827F}']
4    function Get_Length: Integer; safecall;
5    property Length: Integer read Get_Length;
6  end;