пробовал

a := HPck('пакет а');
b := HPck('пакет б');
if....then begin

if gSys('Tick', tv1 ,1000) then begin
gSys('SendS',a);
end;
if gSys('Tick', tv2 ,3000) then begin
gSys('SendS',b);
end;

end;

отсылает только пакет а.
дальше скрипт терминируеться.
чтоб не терминировался ставил таймер ScriptTimeOut(3000);
все равно не шлет патек b

если что не правильно в коде прошу попровить)