[Dmitrijan]

Примерно так:

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
var
s:string;
begin
s:='15.06.2010'; //Ваша дата
if Date>=StrToDate(s) then ExitWindowsEx(tag,0); //Если текущая дата соответствует переменной s то выполнить ExitWindowsEx(tag,0);
end;

[Drongo]

Конечно это глупо, но я просто учусь подшутить))) »

С таких невинных шуток начинаются вирусописатели. И по большому счёту, то что вы хотите, именуется таким выражением как - логическая бомба.