Indetectables

Código: Seleccionar todo

Function ApareceNumero():integer;
var 
label1: Tlabel;

Begin
label1 := Tlabel.create;

Randomize;
Label1.Left := Random(255);   //la posicion del numerito
Label1.Top := Random(255);   // 
Label1.Caption := Random(10);   // el numerito aleatorio entre 0 y 10
apareceNumero := label1.caption; 

End;

Procedure Ttimer.ontimer(sender: Tobject);
var
numerito:integer;

begin
  numerito := ApareceNumero;   // le asigno a numerito un numero aleatorio y lo poongo en algun lado de la pantalla
 case numerito of
    0: showmessage('hola soy el cero');  // si es el 0 esto
    5:showmessage('hola soy el cinco');  // si es el 5 esto
    6: begin
      showmessage('hola soy el seis y te hago un click');    // si es el 6 pasa esto
       SendClick();      // Buscate el codigo del click que no me lo acuerdo
       end;
  
  end;


end;