TWideStringItem = record
  FString: WideString;
  FObject: TObject;
  end;

TntClasses

This is record TntClasses.TWideStringItem.