[AlexSku]

Вот так реализуются часы:

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Caption:= TimeToStr(Now); // размер Label (свойство Font) увеличить
end;

Вам нужен таймер (обратный отсчёт). Т.е. от времени завтрака отнимайте Now().