uses

  System.Win.ComObj;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

  lO: OleVariant;

begin

  lO := CreateOleObject('SAPI.SpVoice');

  {设置语音库 男/女 中文/英文支持, 这句可以不要, 使用默认语音库}

  lO.Voice := lO.GetVoices('name=Microsoft David Desktop', '').Item();

  {语音播报}

  lO.Speak(Memo1.Lines.Text);

end;

procedure TForm1.Button2Click(Sender: TObject);

var

  lO, lV, lX: OleVariant;

  x: integer;

begin

  {获取系统语音库}

  lO := CreateOleObject('SAPI.SpVoice');

  lV := lO.GetVoices;

  for x :=  to lV.count -  do

  begin

    lX := lV.item(x);

    memo1.Lines.Add(lX.GetDescription);

  end;

end;