j'ai testé ça
procedure TForm4.SpSharedRecoContext1Recognition(ASender: TObject;
StreamNumber: Integer; StreamPosition: OleVariant; RecognitionType: TOleEnum;
const Result: ISpeechRecoResult);
begin // ok pour les nombres
// pour les chiffres dicter zéro un... zéro neuf sinon la conversion en chiffre ne se fait pas et le nombre est ecrit en lettres
// marche aussi pour les réels en pronoçant par ex zéro neuf virgule zéro deux
Edit1.Text := Result.PhraseInfo.GetText(0, -1, true);
Memo1.Text := Result.PhraseInfo.GetText(0, -1, true);
end;
disons que ça marche mais pas très fiable pour les chiffres a toi de tester si ça ta conviens
sinon quelqu'un aura peut être une autre proposition a te faire