IStringInfo = interface(ITypeInfo) ['{74AC4C03-E803-421B-B30D-1A2D2C49827F}'] function Get_Length: Integer; safecall; end;