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;