Cómo puedo hacer para que una variable valga 2 valores al mismo tiempo

[wlad]

mmm,la verdad es que soy nuevo en este foro,he leido el manual de estilo,pido disculpas ,si no m expresé bien en un comienzo,

con respecto al codigo ,no arroja ningun error,solo sucede un problema al ejecutar,este codigo corresponde a un entrenador auditivo ,que genera :escalas,intervalos y acordes de dos formas,arpegiados y armonicos,
lo que propone mi programa es que al ejecutar un boton genere un intervalo,una escala o acorde al azar....ese boton que genera los priocedimientos de las escas y acordes al azar,lo hace llamando los procedimientos por medio de una variable "OP" que se visualiza en toda la unidad(declarada en implementacion).luego el valor que tomo la variable, o sea de 0 a 52 se guardara en la variable "caca".por lo tanto lo que se necesita hacer,es responder a lo que se genero mediante un boton, por ejemplo si el boton que genera los procedimientos al azar ,arrojo un acorde mayor arpegiado, con un boton debiera responder tanto para cuando el acorde sea mayor arpegiado ,o mayor armonico ,o sea cuando "op" valga 0 o 4 en el codigo delphi.
entonces en el click del boton que responde a eso tiene como caption "mayor" (que sirvira para responde cuando el acorde es mayor arpegiado ,o mayor armonico)entonces al ejecutar el click del boton que se está usando para responder tiene que tener una variable que ya valga 0 o 4 , y luego se compare "op2" con la variable "caca" y si son iguales los valores guarde la respuesta en un EDIT para saber si es correcto ,si esos valores al compararse son distintos,la respuesta se guardara en el EDIT correspondiente a incorrecto...

gracias por tomarse el tiempo para leer esto..