Все верно
Хочу обратить внимание на одну вещь.
Код:
procedure enchant;
begin
SendToServerEx(name);
end;
begin
if FromClient and (pck[1]=#$23) and (ConnectName=name) then
begin
buf:=pck;
TimerEnchant.enabled:=true;
end;
Присваивать значение buf в одной процедуре и отправлять на сервер в другой (в нашем случаи в основном блоке buf:=pck, а в таймере идет отправка) довольно рискованно (можно допустить много ошибок) и следует избегать такого варианта. Но в случаи этого скрипта - исключение, сейчас это оптимальный способ.