Выполнить в указанный день

[SKS]

Доброго времени суток!
среда: Delphi 7

Подскажите или покажите как реализовать выполнение действия по дате. Моя программа показывает поздравлялки, но я реализую через проверку по файлу на ФТП сервере. Если у пользователя отсутствует Интернет, то программа естественно не проверит файл и не выдаст поздравлялку.
Как реализовать чтобы программа проверяла дату, и если например 25 декабря 2015, то выполнить действие?

[Stilet]

Реализовать то не больно сложно:

uses  dateutils, 
...
procedure TForm1.FormCreate(Sender: TObject);
begin
 if Date=EncodeDate(2015,12,25) then...;
end;

[SKS]

Спасибо! Я пробовал через условие
if DateTimeToStr(Now)=25.12.2015 then но из-за кривых рук не смог реализовать
я не верно представлял алгоритм.

[Smitt&Wesson]

Stilet ща Вам наговорит . С таким кодом, "подвесишь" машину навсегда.
Лучше, такие вещи делать в таймере, а не в CreateForm.
Тю, блин. "Напоминалка" в башке.
Пардон, если нужно всего один раз, то делайте как показал Stilet. Если на протяжении периода, то через таймер.