error SAPI Text-To-Speech Delphi 2010 SOToken.GetAttribute -

error SAPI Text-To-Speech Delphi 2010 SOToken.GetAttribute -

i have problem delphi 2010. need alter language text-to-speech. have spanish voice called george installed , want take voice of jorge , no voice in english. examples give me errors in these lines of code:

procedure tfrmtexttospeech.cbvoiceschange(sender: tobject); var sotoken: ispeechobjecttoken; begin lstengineinfo.items begin clear; sotoken := ispeechobjecttoken(pointer(cbvoices.items.objects[cbvoices.itemindex])); spvoice.voice := sotoken; add(format('name: %s', [sotoken.getattribute('name')])); //here error when running programme add(format('vendor: %s', [sotoken.getattribute('vendor')])); add(format('age: %s', [sotoken.getattribute('age')])); add(format('gender: %s', [sotoken.getattribute('gender')])); add(format('language: %s', [sotoken.getattribute('language')])); add(format('reg key: %s', [sotoken.id])); end end;

delphi delphi-2010 sapi