[PanAm]

тогда так

begin
  if fromclient and (pck=#$6C) then begin
    buf:=#$6C;
    WriteD(ReadD(2));
    WriteD(ReadD(6));
    WriteD(0);
    SendToServer;
    WriteD(ReadD(6)-1, 6);
    SendToServer;
    pck := '';
  end;
end.