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

[semiromid]

Подскажите почему где ошибка ?
Я хочу что бы когда приходил пакет 39
копирывалось с него вторая строчка , и заменяла в 49 пакете 4 строку

const
 Name='Вива'; 
var  
Paname: String;

begin
  if FromClient and (pck[1] = #$39) then  //Отлавливаем от клиента пакет XX
begin
     Paname:=ReadS(2);
     buf:=#$49#$3E#$04#$3E#$04#$00#$00#$02#$00#$00#$00#$12#$04#$38#$04#$32#$04#$30#$04#$00#$00; 
    
    WriteS(Paname),4);
    SendToServerEx(name);
  

  end;  
  
 
end.