Запись звука

[апельсинка]

Я записываю звук в буфер. Можно ли туда "дозаписать" ещё звуки??? Чтоб этот звук стал продолжением другого, а не накладывался на него как в этом случае:
d1:=Round(High(SmallInt)*Sin(2*Pi*( 523*i/r.wSamplesPerSec))); // звук1
r.Data.WriteBuffer(d1, 6);
d2 := Round(High(SmallInt)*Sin(2*Pi*(554* i/r.wSamplesPerSec)));// звук2
r.Data.WriteBuffer(d2, 6);
И как сделать его затухающим или просто прекращать таймером?
Я пытаюсь получить в конечном счёте какую-нибудь простенькую мелодию.