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

[semiromid]

Проверьте пожалуйста , правильно ли я все сконфигурировал.

 begin 
////////////////////////////////////////Блок проверки количество человек в пати 

if FromServer and (pck[1] = #$4E) and (ConnectName=Name) then   begin
                             //Блок перебора количества в пати человек
           if (ReadD(10)=2)  then      // в пати 2-а человека
begin
              buf:=Hstr('49 3F 04 30 04 42 04 38 04 20 00 37 00 00 00 03 00 00 00');
              SendToServer; 
end
     else  if (ReadD(10)=3)  then       // в пати 3-а человека
begin
              buf:=Hstr('49 3F 04 30 04 42 04 38 04 20 00 37 00 00 00 03 00 00 00');
              SendToServer;                             
end
     else  if (ReadD(10)=4)  then       // в пати 4-а человека
begin
              buf:=Hstr('49 3F 04 30 04 42 04 38 04 20 00 37 00 00 00 03 00 00 00');
              SendToServer;                              
end
     else  if (ReadD(10)=5)  then       // в пати 5-а человека
begin
              buf:=Hstr('49 3F 04 30 04 42 04 38 04 20 00 37 00 00 00 03 00 00 00');
              SendToServer;                              
end
     else  if (ReadD(10)=6)  then       // в пати 6-а человека
begin
              buf:=Hstr('49 12 04 20 00 3F 04 30 04 42 04 38 04 20 00 37 00 2D 00 3C 04 4C 04 20 00 47 04 35 04 3B 04 3E 04 32 04 35 04 3A 04 00 00 03 00 00 00');
              SendToServer;
              timer.enabled:=true;
              TimerStep:=13;                             
end; 
end;