放一个time控件,interval=300000
procedure Tsjcjf.Timer_doTimer(Sender: TObject);
begin
Timer_do.Enabled:=False;
if (strtotime('01:00:00')<=time())and(time()<=strtotime('01:05:00'))then
begin
//do1
end;
if (strtotime('10:40:00')<=time())and(time()<strtotime('10:45:00'))then
begin
//do2
end;
Timer_do.Enabled:=true;