[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;