如何在一个日期到达前,发出警报(0分)

我的程序有一个日期字段,例如为2000/10/04,如何让程序在到达这个日期的前几天就发出
警报,通知准备到达那天,请教这个代码如何写啊.

这是我的一个程序中的部分代码
procedure TForm1.Timer1Timer(Sender: TObject);
var
DateTime :Tdatetime;
str:string;
begin
DateTime :=Time;
str:=timetostr(DateTime );
if(str=time1) then
begin
playsound(pchar('alarm.wav'),0,snd_async);
showmessage('时间到了');
end;
end;

我的程序获得的是时间。
你需要获得的是日期，但基本方法一样

谢谢指教,但是下面的语句出错了,而且我的功能需要判断在这个日期前X天,例如3天
就发出通知来,说快要到达这个日期了,请再指教如何写啊.
if(str=time1) then
//系统说字符和时间类型不同,

up