bucle infinito

[Khronos]

Ya te dije ke tiende a dejar colgado el programa o el sistema, por eso se utiliza en la programacion virica .
A mi no se me ocurre nada mas, si descartastes lo del timer y repeat no veo muchas mas opciones.

[emeceuy]

es que no tengo muchas más opciones no tengo más remedio que descartar las anteriores... el timer no me sirve porque va muy lento para lo que necesito, y el repeat y el goto no me permiten variar cosas de la pantalla, como un edit o apretar un boton

[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;

[emeceuy]

Gregory, mil gracias !!! creo que esa es la solucion que buscaba

salu2 mArCe

[[fer21unmsm]]

Hola en todo caso, también puedes utilizar hilos y/o servicios para lo que deseas

saludos