[koiji]

Acabo de probar el script aqui pongo

Código Delphi [-]
var
  SOToken: ISpeechObjectToken;
begin
  with lstEngineInfo.Items do
  begin
    Clear;
    SOToken := ISpeechObjectToken(Pointer(
      cbVoices.Items.Objects[cbVoices.ItemIndex]));
    SpVoice.Voice := SOToken;
    Add(Format('Name: %s', [SOToken.GetAttribute('Name')]));   ///////////////// Aqui me manda un error nombre del error abajo
    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;

lo que pasa cuando ejecuto me manda este error yo estoy utilizando delphi 2010

First chance exception at $7592D3CF. Exception class EAccessViolation with message 'Access violation at address 004BA755 in module 'Project3.exe'. Read of address 00000000'. Process Project3.exe (5812)