if start and not old then
timer.in:=true;
elsif old and not start then
timer.in:=false;
end_if;
old:=start;
timer(in:=timer.in,pt:=t#10s);
if timer.q then
...
end_if;
как то так и по поиску Вы найдете массу подобных примеров