bucle infinito

[Gregory Mazon]

Hola pon la siguiente instruccion y listo, resuelto el problema
Application.ProcessMessages;

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

procedure TForm1.Button1Click(Sender: TObject);
var numero:integer;
begin
  Numero := 0;
  Repeat
      numero:=numero+1;
      FRECUENCIA(numero);
      Application.ProcessMessages;   
  Until termina;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Termina := true;
end;