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