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.