bucle infinito

[emeceuy]

he probado y no me funciona... es como si fuera un bucle comun y corriente, porque muestra a la label1 incrementandose muy rapidamente, pero no puedo destildar la casilla de verificacion, ni apretar el boton, ni nada...

les dejo el codigo con el que probé

Código Delphi [-]
procedure FRECUENCIA(numero:integer);
begin
   form1.label1.caption:=inttostr(numero);
   form1.Refresh;
end;

procedure TForm1.Button1Click(Sender: TObject);
label continuo;
var numero:integer;
begin
numero:=0;
continuo:
   begin
      numero:=numero+1;
      FRECUENCIA(numero);
      if checkbox1.checked then Goto continuo
   end;
end;