Запуск процедуры по дате[DELPHI]

[Ant1Player]

помогите сделать проверку на дату.
цель такова: запускаем приложение, и если дата на компе например 01.06.2009 или выше, то выполняется процедура если нет то ни чего не происходит.

[W!z@rD]

прописаться в планировщик.
самый простой вариант, это AT.

C:\Documents and Settings\W!z@rD>at /?
Команда AT предназначена для запуска команд и программ в указанное время
по определенным дням. Для использования команды AT необходимо, чтобы была
запущена служба расписаний.

AT [\\имя_компьютера] [ [код] [/DELETE] | /DELETE [/YES]]
AT [\\имя_компьютера] время [/INTERACTIVE]
[ /EVERY:день[,...] | /NEXT:день[,...]] "команда"

\\имя_компьютера Имя удаленного компьютера. Если этот параметр опущен,
используется локальный компьютер.
код Порядковый номер запланированной задачи.
/delete Отмена запланированной задачи. Если код задачи опущен,
отменяются все задачи, запланированные для указанного
компьютера.
/yes Отмена запроса на подтверждение при отмене всех
запланированных задач.
время Время запуска команды.
/interactive Разрешение взаимодействия задачи с пользователем,
работающим на компьютере во время запуска задачи.
/every:день[,...] Запуск задачи осуществляется по указанным дням недели или
месяца. Если дата опущена, используется текущий день
месяца.
/next:день[,...] Задача будет запущена в следующий указанный день недели
(например в следующий четверг). Если дата опущена,
используется текущий день месяца.
"команда" Команда Windows NT или имя пакетного файла.

[Ant1Player]

нет, вы не понели.
НУжно не в планировщик поставить программу, а с приложения зделать процедуру по дате...
тоесть запускаеш программу если дата 01.06.2009 и выши то выполняется процедура к примеру showmesage в этом роде надо..

[Flame of Soul]

var
s: string;
begin
s:=timetostr(time);
if .... then .... else ... ;
....
....
end;

[Ant1Player]

А можно if .... есче написать?

[МongBa†]

То ли я чето недопонимаю, то ли на паскале time это дата...
мой вариант:
if date>=strtodate('01.06.2009') then
begin
showmessage('вовремя!');
end
else
begin
showmessage('еще рано');
end;