Не понимаю, что надо добавить?

[8tomat8]

Раньше везде для авто докупки скролов использовал

buf:=HStr('A7 B1 02 00 00 A0 86 01 00 0A 00 00 00 00 00 00 00 00 00 00 00');
SendToServerEx(Name);

Но поскольку виртуальная память начала оч сильно забиватся решил заменить на что то вроде

buf:=#$A7
WriteD:=(689);
WriteD:=(100000);
WriteD:=(10);
SendToServerEx(Name);

Но ничего не происходит( подскажите что не правильно.
Зарание благодарен.