Program bych znal treba toto? :
procedure spust.timer1(sender : Tobject);
begin
if now < strtodatetime('zde bude cas') then
Shellexecute(Application.MainForm.Handle, nil, pchar(edit1.text), '','',SW_SHOWNORMAL)
else
killprocess(pchar(edit1.text)); // podobnost spravce uloh
end;
