提醒器程核心程序片段：
procedure TForm1.Timer1Timer(Sender: TObject);
var
i:integer;
begin
......//其他语句
//tt是存放数组，在form1启动时用循环语句把预定的时间与事项读入数组内（存放的方法我已经在楼上讲过了。写注册表或存入一个文件。只有这两种方法！“写”的按钮可以是“输入记录“，“删除记录”两个，用ListBox1.Items.Add(）显示到BOX里，此处略述）
for i:=1 to 10 do//在时间控件里查找设定的时间
begin
if copy(tt,5,5)+':00'=FormatDateTime('hh:mm:ss', StrToDateTime(DateTimeToStr(now))) then
begin//现在时间与预定时间相同，就执行提醒：
//Form1.Visible := true;
Visible:=true;
Application.ShowMainForm:=Visible;//显示提醒窗口
N7Click(Sender);//调播放提醒音乐模块
end;
end;
注意程序要用瘦身程序方法（因为要长驻内存！程序体积不能过大！）其他的语句，
自己去想吧。
