Цвет фона ячейки доступен для записи. Для контроля временного интервала, привязанного к началу часа, можно использовать событие "Прошел час".
Пример скрипа для таблицы Table1 c фиксированной первой строкой:
// подсветка ячейки, соответствующей текущему часу
var i: integer;
begin
for i := 0 to 23 do
with Table1.GetCell(0,i + 1) do
if i = HourOf(Now) then Color := clFuchsia else Color := clGray;
end.
При запуске проекта можно установить цвет фона текущего интервала в скрипте "Проект полностью запущен":
begin
Table1.GetCell(0,HourOf(Now) + 1).Color := clFuchsia;
end.