i := 0;  // on compte le nombre de frame déjà encodée
  l := size;  // taille restante dans le buffer

  while l >= encframe do begin

    // Encode the sound data //
    speex_preprocess(encprestate, @Buffer[(i*encframe)*2], nil);
    speex_encode_int(encstate, @Buffer[(i*encframe)*2], @encbits);

    l := l - (encframe*2);
    i := i + 1;
  end;

    // sz contient le nombe d'octet à écrire / prévoir
    sz := speex_bits_nbytes(@encbits);

    if length(buffBytes) < sz then SetLength(buffBytes,sz);

    //  sz2 contient le nombre d'octet écrit
    sz2 := speex_bits_write(@encbits,@buffBytes[0],sz);

    //
    speex_bits_reset(@encbits);