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;