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 !