Algun procedimiento se ejecuta continuamente!!

[[nlsgarcia]]

Artigas72,

Revisa este código:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  T1 : TTime;
  T2 : TTime;

begin

   Loop := True;

   Repeat

      Application.ProcessMessages;

      T1 := Time;
      T2 := StrToTime('08:00:00');

      if (T1 >= T2) then
      begin
         // El código que quieras ejecutar
      end;

   // Permite cancelar el ciclo externamente por medio de la variable global Loop
   until Loop = False;

end;

Espero sea útil

Nelson.