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(0);
  {语音播报}
  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 := 0 to lV.count - 1 do
  begin
    lX := lV.item(x);
    memo1.Lines.Add(lX.GetDescription);
  end;
end;