[ColorDb]

Как сделать развертывание окна каждый месяц например ровно первого числа каждого месяца?
Например сканируем таймером раз с 10 сек текущую дату и как только будет совпадение развертываем окно но немонимаю как следить и за числом и за месяцем.

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

Для этого вам необходимо где-то хранить даты событий. Допустим у вас они постоянные и вы создали константу 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;

[ColorDb]

Тоесть создать массив с фиксированными датами?
01.01
01.02
01.03

и так далее а потом просто сверять?

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

Если хотите гибко сделать, то храните эти даты во внешнем файле. Если этого не требуется, то и констант достаточно.