MediaPlayerコンポーネントで録音するには？

MASH 2004-07-12 03:37:54 No: 9877

TextToSpeechを使って録音ソフトを作りたいのです。

http://forum.nifty.com/fdelphi/samples/00003.html
ここのサンプルを試してみたのですが、wavファイルですら作成されません。
もう少し詳しいやり方をお願いします。

あと、このようにクリップボードのテキストを発音させたいのですが、
「クリップボードを開けません。」というエラーになります。
「flg」はクリップボード発音がONになっているかどうかで、
「text」は前回のクリップボードの内容を保存し、
連続発音を防ぐものです。よろしくお願いします。

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if str.HasFormat(CF_TEXT) then
  begin
    if (flg=True) and (text<>str.AsText) then
    begin
      text:=str.AsText;
      TextToSpeech1.Speak(text);
    end;
  end;
end;

MASH 2004-07-12 07:59:45 No: 9878

クリップボードからの発音は自己解決できました。

MediaPlayerでの録音の方はいろいろ試してみましたが、なかなか上手くいきません。
どなたか、よろしくお願いします。