[TAMBIK]

мож так

var
x: integer;
//===============================================================================
 begin
 if FromClient  and (pck[1]=#$34) and (pck[2]=#$06) then begin//соц.действие- yes 
 case x of
1: begin
     buf:=hstr('пакет № 1');
     inc(x);
     end;
// и т.д

10: begin
     buf:=hstr('пакет № 10');
     x:=0;
     SendToServer;
     end;
     end;