[Помогите!] Как можно отправлять несколько пакетов в одном buf ?

[Inako]

Собственно появилась проблема... Всилу своих слабых познаний в направлении скриптинга, для автоматизации(частичной) пользовался следующим кодом:

var
i: Integer;
begin

repeat
//пакеты на приём квеста
Buf := HStr('9C 57 5B 5E 00 00 00 34 00 01 00 0A 00 00 00 00 00 00 00');
SendToServer;
Buf := HStr('9C 57 5B 5C 00 00 00 19 00 01 00 1C 00 89 15 00 00 00 00');
SendToServer;
Buf := HStr('9C 57 5B 5C 00 00 00 EA 03 01 00 04 00 89 15 00 00 00 00');
SendToServer;

for i:=1 to 12 do  //количество повторений крафта
begin
Buf := HStr('E3 57 80 80 8D D1 F0 08 0B 2D 3D 09 5D 01 00 00 03 00 FA 86 DD 0A 08 00 00 00 00 00 00 00 19 D7 18 0A 90 01 00 00 00 00 00 00 1F D7 18 0A F4 01 00 00 00 00 00 00')  //пакет на крафт
SendToServer;
Delay(7000);
end;
  //пакеты на сдачу квеста
  Delay(1000);
Buf := HStr('9C 57 5B 5C 00 00 00 34 00 01 00 0A 00 00 00 00 00 00 00');
SendToServer;
Buf := HStr('9C 57 5B 5C 00 00 00 19 00 01 00 1C 00 85 15 00 00 00 00');
SendToServer;
Buf := HStr('9C 57 5B 5C 00 00 00 11 00 01 00 05 00 89 15 00 00 00 00');
SendToServer;

until false

end.

Знаю что выполняю рутинную работу при замене каждого пакета после окончания квеста (когда доступный заказ исчерпываеться приходиться перехватывать пакеты нового и вставлять каждый пакет в отдельную строку). Так вот, возник вопрос, есть ли способ посылать несколько пакетов в одном buf-е? Дабы каждый пакет не заменять в своем буфере, а сразу 3 нужных пакета вставить и отправить. Буду признателен людям которые адекватно смогут помочь или посоветовать дельное. Участников которые считают себя сильно заумными и могут только грубить - идите лесом.