config : W10, fr et code typhon (5.5)

j'utilise quasiment l'exemple donné sur le wiki Free Pascal
Voici le code sensiblement modifié (juste la chaine de caractère des phrases à lire)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
procedure TForm1.Button1Click(Sender: TObject);
var
  SavedCW: Word;
  SpVoice: Variant;
begin
  SpVoice := CreateOleObject('SAPI.SpVoice');
  // Change FPU interrupt mask to avoid SIGFPE exceptions
  SavedCW := Get8087CW;
  try
    Set8087CW(SavedCW or $4);
    SpVoice.Speak('Bonjour tout le monde', 0);
    spVoice.Speak('Dessiné à la main');
  finally
    // Restore FPU mask
    Set8087CW(SavedCW);
  end;
end;
La lecture de la première phrase est correcte, la seconde défectueuse du fait des caractères accentués.
Que faire pour remédier à cela ? Une idée ? d'avance merci .