program patest2;
{$MODE Delphi}
uses SysUtils, AudioInput;
var A, B: TAudioInput;
begin
  A := TAudioInput.Create(48000);
  A.DeviceIndex := 15;              // DireWolf_TX_Output
  WriteLn('open #1 ...'); Flush(Output);
  WriteLn('  -> ', A.Open, '  err=', A.LastError); Flush(Output);
  B := TAudioInput.Create(48000);
  B.DeviceIndex := 15;              // то же устройство вторым потоком
  WriteLn('open #2 ...'); Flush(Output);
  WriteLn('  -> ', B.Open, '  err=', B.LastError); Flush(Output);
  Sleep(300);
  WriteLn('avail #1=', A.Available, ' #2=', B.Available); Flush(Output);
  B.Close; A.Close;
  B.Free; A.Free;
  WriteLn('done');
end.