[gaston260]

Muchas gracias amigos por poner interes en un tema haci tan inocente ! , es que no estaba con todas las pilas jejeje , ha lo resolvi de esta manera !

Código Delphi [-]
            if edit1.Text = IntToStr(0) then
begin
    contador := contador + 1
              end
            else
begin
                    contador := 0;
end;

            if contador = 30 then
            begin
                   beep
            end;

otra pregunta que no tiene nada que ver jeje , como se hace para identar en este editor alguien que me diga !