[Страдалецъ]

Для этого вам необходимо где-то хранить даты событий. Допустим у вас они постоянные и вы создали константу NewYear = '31.12.2009';
Затем добавьте на форму компонент TTimer. Установите у него интервал проверки скажем 1800000 = 30 минут и активируйте его. Далее в событии этого таймера OnTimer напишите такой код:

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if Date = StrToDate(NewYear)
 then begin
        Application.MainForm.WindowState := wsMaximized;
        Timer1.Enabled :=  False;
        end;
end;