Работа с датой

[[RR]Reaction]

Вообщем мне надо сделать отключение программы если дата например 07.04.2008 я делаю так...

При нажатие на кнопку Button1 воспроизводится вот такой код:

If (date=07/04/2008) Then 
ShowMessage('Сегодня вышел срок использования с тебя 20 евро :) или 1000 руб');

Но он нехочет работать также пробовал с 07.04.2008 вообще ошибку выдаёт выручайте!!!

[Air]

DateTostr(now) - вернёт текущюю дату в формате "07.04.2008"
Сравнивай и выводи сообщение

[BanDit]

if formatDateTime('dd.mm.yyyy',now) then...

[Terran]

Можешь сделать так:

procedure TForm1.Timer1Timer(Sender: TObject);
Var
T: SYSTEMTIME;
Begin
GetLocalTime(T);
If SystemTimeToDateTime(T) >= StrToDateTime('22.11.2008 00:35:30') then
Begin
Close;
End;
End;