Аудиоустройства по умолчанию

[PTyTb32]

Всем привет, пишу прогу для изменения дефолтного устройства вывода звука, список устройств я получил, а вот сделать выбранное устройство как дефолтное не получается, заранее спасибо.

вот то что уже написал...

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, MMSystem;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    ListBox2: TListBox;
    procedure FormCreate(Sender: TObject);
    procedure ListBox1DblClick(Sender: TObject);
  end;

 TModeDescr = record
      descr: string[32];
     private
  public
    { Public declarations }
    end;

var
  Form1: TForm1;
  hWO: HWAVEOUT;
 WaveNums, i, j,activ: integer;
  WaveInCaps: TWaveOutCapsw;
  WaveInCaps1: TWaveinCapsw;
   waveF: TWAVEFORMATEX;
  s:string;
implementation

{$R *.dfm}

procedure ShowInfo;
begin
 activ:=waveInGetNumDevs;
  WaveNums := waveOutGetNumDevs;
  if WaveNums > 0 then
  begin
    for i := 0 to WaveNums - 1 do
    begin
      waveOutGetDevCaps(i, @WaveInCaps, sizeof(TWaveoutCapsw));
     s:=(inttostr(i))+' - '+(PChar(@WaveinCaps.szPname));
      delete(s,14,28);
      Form1.listbox1.items.Add(s);
    end;
    if activ > 0 then
  begin
    for i := 0 to activ - 1 do
      begin
      waveinGetDevCaps(i, @WaveInCaps1, sizeof(TWaveoutCapsw));
     s:=(inttostr(i))+' - '+(PChar(@WaveinCaps1.szPname));
      Form1.listbox2.items.Add(s);
    end;
  end;
end;
 end;


procedure TForm1.FormCreate(Sender: TObject);
begin
 ShowInfo;
end;

procedure TForm1.ListBox1DblClick(Sender: TObject);
begin

end;
end.