[ecfisa]

Hola Artigas72.

Si no entendí mal lo que buscas, podes agregar un componente TTimer (pestaña System) y este código al evento OnTimer del mismo:

Código Delphi [-]
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  with IBQuery1 do
  begin
    Close;
    SQL.Text:= 'SELECT CURRENT_TIME AS HORA FROM RDB$DATABASE';
    Open;
    if FieldByName('HORA').AsString >= '08:00:00' then
    begin
      ShowMessage('Tiempo cumplido, hacer lo que gustes');
      ...
    end;
    ...
  end;
end;

La cadena SQL para obtener la hora funciona en Firebird, tendrás que reemplazarla por la que corresponda a tu manejador de bd.

Saludos.