[Ricardo2010]

Hola necesito su ayuda para la siguiente problemática, puede que se facil pero no he podido lograr que funciones
Necesito generar un bucle para que se ejecute una serie de instrucciones cada dos horas, la aplicacion en delphi 10.4 lo que he realizado es lo siguiente

Código Delphi [-]
hora_new:=hora + 1;
  ed_lleva.Text:=IntToStr(debe);//aqui indio cada cuanto debe ejecutarse
  while debe <= hay do // debe inicia en 0 hay es la cantidad total de datos a leer
  begin
    while hora<=hora_new do    // hora es integer que contiene solo la hora y hora_new es cada cuanto se debiera ejecutar
    begin
      i:=0;
      while i<30000 do    // este while lo pongo porque realmente no generar la nueva hora
      begin
         i:=i + 1;
      end;
       q_hora.Open;
       hora:=q_horaHORA.AsInteger;  // con esto tomo nuevamente la hora servidor
       q_hora.close;
    end;
    Form1.Update;
    hora_new:=hora + 1;
    Memo1.Clear;
    recorre;  // este es el codigo que debiera ejecutarse cada 2 hora

  end;

de verdad que he intentado de varias formas que se ejecute cada cierta cantidad de tiempo (horas) pero no logro que funcione , favor su ayuda