//set on current day   sCurrentDay := FormatDateTime('dddd',Now);
  //fetch on a timer
  sFormattedDate := FormatDateTime('dddd',Now);//

  if not (sCurrentDay = sFormattedDate) then
    lblTodayTomorrow.Caption := 'It is Tomorrow!'
  else
    lblTodayTomorrow.Caption := 'It is still today.';