[mks]

begin
   if FromClient then Case ord(pck[1]) of
      $01: begin
              buf:=pck;
              WriteD(1);
              pck:=buf;
           end;
      $2F: begin
              buf:=pck;
              WriteC(0,6);
              pck:=buf;
           end;
      $81: pck:='';          
   end;
end.

а так слабо?)