[wlad]

este es el codigo

Código Delphi [-]
procedure TForm2.Image1Click(Sender: TObject);
begin
 Randomize;
  op:=Random(52);
  edit3.Visible:=false;
  case op of
  0 : Mayorarp(36+random(48));
  1 : menorarp(36+random(48));
  2 : aumentadoarp(36+random(48));
  3 : disminuidaarp(36+random(48));
  4 : triMayor(36+random(48));
  5 : trimenor(36+random(48));
  6 : triaumentada(36+random(48));
  7 : tridisminuida(36+random(48));
  8 : Mayormaj7arp(36+random(48));
  9 : menormaj7arp(36+random(48));
 10 : triMayormaj7(36+random(48));
 11 : trimenormaj7(36+random(48));
 12 : triMayor7(36+random(48));
 13 : trimenor7(36+random(48));
 14 : Mayor7arp(36+random(48));
 15 : menor7arp(36+random(48));
 16 : escromatica(36+random(48));
 17 : esfrigida(36+random(48));
 18 : eseolicomenor(36+random(48));
 19 : eslidio(36+random(48));
 20 : esmixolidio(36+random(48));
 21 : esdorio(36+random(48));
 22 : esjonicomayor(36+random(48));
 23 : eslocreo(36+random(48));
 24 : esmenorarmonico(36+random(48));
 25 : esmenormelodico(36+random(48));
 26 : esmenorpentatonica(36+random(48));
 27 : esmayorpentatonica(36+random(48));
 28 : esblues  (36+random(48));
 29 : segmenor (36+random(48));
 30 : segmayor (36+random(48));
 31 : termenor (36+random(48));
 32 : termayor (36+random(48));
 33 : cuartajus(36+random(48));
 34 : cuartaaug(36+random(48));
 35 : quintajus(36+random(48));
 36 : sexmenor (36+random(48));
 37 : sexmayor (36+random(48));
 38 : septmenor(36+random(48));
 39 : septmayor(36+random(48));
 40 : octava   (36+random(48));
 41 : armsegmenor (36+random(48));
 42 : armsegmayor (36+random(48));
 43 : armtermenor (36+random(48));
 44 : armtermayor (36+random(48));
 45 : armcuartajus(36+random(48));
 46 : armcuartaaug(36+random(48));
 47 : armquintajus(36+random(48));
 48 : armsexmenor (36+random(48));
 49 : armsexmayor (36+random(48));
 50 : armseptmenor(36+random(48));
 51 : armseptmayor(36+random(48));
 52 : armoctava   (36+random(48));
end;
caca:=op;
edit3.text:=floattostr(caca);
end;

lo que quiero es que la variable "op" q se guardo en "caca" luego se compare con "op2" para ejecutar cierto procedimiento, pero ese procedimiento debe ejecutarse cuando "op2" tome uno de edos valores.

Código Delphi [-]
 
procedure TForm2.Button9Click(Sender: TObject);
begin
if (op2=29) or (op2=41) then;
correcto:=correcto;
  incorrecto:=incorrecto;
  if op2=caca  then
  correcto:=correcto+1
  else
  incorrecto:=incorrecto+1;
  edit1.text:=floattostr(correcto);
  edit2.text:=floattostr(incorrecto);
  edit3.visible:=true;
end;