Помогите сделать скрипт

[NEOXP]

Вот я пока сделал вот так

if FromServer and (pck[1]=#$39) then
begin
buf:=Hstr('2A 01 00 00 00 ');
sendtoserver;
buf:=Hstr(b1);
sendtoserver;
buf:=Hstr(b2);
sendtoserver;
buf:=Hstr(b3);
sendtoserver;
buf:=Hstr(b4);
sendtoserver;
buf:=Hstr('2B');
SendToServer;
end;
end.

но он чтото очень быстро всё пробегает пару песен споётсам для себя и всё... надо задержки сделать только не пойму куда и сколько)

Добавлено спустя 2 минуты 11 секунд:
задержку бы секунды 2 после того как примет пати, начнёт первую песню пока поёт чобы была задержка секунды 2 начинает песть вторую опять задержка 2 сек