Подскажите как написать скрипт

[Санчес]

Здравствуйте уважаемые читеры. чтобы не создавать новую тему, попрошу совета тут. В дельфи не секу, сейчас юзаю поиск.
Необходимо, чтобы клиент посылал серверу два строго определенных пакета с интервалом 0.5 сек.
Выражаясь языком Asi надо сделать скрипт

Label (123) //начало цикла
послать пакет 1
delay 500
послать пакет 2
delay 500
jmp(123) //вернуться в начало цикла.

Пожалуйста, помогите.
з.ы. я знаю что есть функция отправить пакет на сервер, но мне надо отправлять несколько пакетов с заданным интервалом, иначе часть из них просто не успеет обработаться.
Вот пример скрипта. (если от серва пакет 1, то отправить пакет 2.)

begin
if FromClient and (pck=HStr('FE 58 00 01 00 00 00')) then begin
buf:=HStr('D0 26 00 C0 00 23 40');
SendToServer;
end;
end.

что не так? в 4ой строчке чего то не хватает. подскажите плиз. и как добавить второй пакет с делеем 500 в отправку