[ryderx34]

Не идеально конечно, но работает:

Код:

uses
  IniFiles;

var
  MsgStr: String;
  CurrentDate: TDateTime;

function GetMessage(D: TDateTime): String;
var
  Ini: TIniFile;
begin
  Ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'messages.txt');
  Result := Ini.ReadString('messages', DateToStr(D), 'на сегодняшний день нет сообщений');
  Ini.Free;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  CurrentStr: String;
begin
  if CurrentDate <> Date then  // проверяется дата и если она изменилась
    MsgStr := GetMessage(Date); // из файла читается соответствующее ей сообщение (смотри функцию выше)
  // далее реализация бегущей строки:
  CurrentStr := Label1.Caption; 
  if Length(CurrentStr) > 0 then
    Delete(CurrentStr, 1, 1)
  else
    CurrentStr := MsgStr;
  Label1.Caption := CurrentStr;
end;

файл с сообщениями - обычный INI:

Код:

[messages]
23.11.04=помыть посуду
25.11.04=выкинуть мусор