procedure Set_ControlDefault(Index: Integer; Value: OleVariant); safecall;

This is Set_ControlDefault, a member of class TWideStringsAdapter.