Zwei Stereo Streams zusammenmischen

[Six]

Hallo,

wie kann ich zwei Stereostreams zusammenmischen?

So geht es mit zwei Monostreams (Ergebnis ein Stereo Stream):

Delphi-Quellcode:

function TForm1.SoundStreamsMischenMono(Stream1, Stream2: PSmallInt): PSmallInt;
var
  i: integer;
  Data2, Data3, Data4, Ziel, Ziel2: PSmallInt;
begin
  Ziel  := 0;
  Ziel2 := 0;
  Data2 := 0;
  Data4 := 0;
  GetMem(Ziel, Size * 2);
  Ziel2 := Ziel;
  Data2 := Stream1;
  Data4 := Stream2;
  for i := (Size div 2) - 1 downto 0 do
  begin
    ziel2^ := Data2^;
    Inc(Ziel2);
    Inc(Data2);
    ziel2^ := Data4^;
    Inc(Ziel2);
    Inc(Data4);
  end;
  Result := Ziel;
end; //  SoundStreamsMischen  (TForm1)

Was muss ich ändern, um zwei Stereostreams Mischen zu können?

Dankeschön!

Six