types...

Olá pessoal,

Estou com o seguinte problema com os types:

Declarei em uma unit chamada ConfigConsulta onde chamo uma função para configurar minha seleção de chaves estrangeiras. Passo uma variável do tipo declarado como Type como segue abaixo:


TOpcaoConsulta = (
ocUnidsFed,
ocUnidsMed,
ocExame,
ocGrpExame,
ocGrpItemExame,
ocMetodo,
ocUsuario,
ocPessoa,
ocMedico,
ocPaciente,
ocCidade,
ocEspecialidades,
ocMatriculas,
ocConvenio
);


O que gostaria era de acrescentar mais opções em uma outra unit que usa está unit. Tem como incrementar esses types?

Ex.:

TOpcConsulta = TOpcaoConsulta + ( ocRequisicaoPendente );


Valeu.