мож так
Код:
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;