我代码是要在指定的时间内开启，并在指定的时间内关闭。代码如下，定时开启行了，但是定时关闭，怎么也不行啊。

[code delphi]
var
Found: Boolean; time:TDateTime ; s,t:TDateTime ;i:Int64;p:string;
begin
Found := False;
ClientDataSet2.DisableControls;
try
clientdataset2.edit;
ClientDataSet2.First;
while not ClientDataSet2.Eof do
begin
if FormatDateTime('hh:mm:ss',ClientDataSet2.FieldByName('开始时间').asdatetime) = formatdatetime('hh:mm:ss',now) then
begin
Found := True;
p:=TimeToStr(ClientDataSet2.FieldByName('结束时间').asdatetime);
s:=now;
Break;
end;
ClientDataSet2.Next;
end;
finally
ClientDataSet2.EnableControls;
end;
if Found and (ClientDataSet2.FieldByName('计划类型').asstring='定时播放')then
begin
WindowsMediaPlayer1.controls.play;

end;
if FormatDateTime('hh:mm:ss',now)=p then
ShowMessage('over');
end;
[/code]
能否告诉我是哪里错了么，谢谢

------
断断续续的学了几年，还是一个初学者，永远支持Delphi !