Здравствуйте. Я пишу программу по переводу текстовой информации в азбуку морзе. Сделал вывод результата в виде символов и звуков системного динамика, и еще хочу добавить возможность вывода звука с помощью проигрывания файлов wav. Пролистал много интернет страничек, но так ничего полезного и не нашел. Никак не получается дописывать файлы в результирующий файл. Код привожу ниже:

Приложение:
procedure CodeToMorse_zvuk(code:string);
var
f1: TStringList;
count:integer; // колличество точек и тире
position: integer; // указатель на букву
begin
count := Length(Code);
Inc(count);
position := 0;
while position < count do
begin
case Code[position] of
'*': ; // точка - тут дописываем в результат tochka.wav
'-': ; //тире - тут дописываем в результат tire.wav
' ': ; // пробел - тут дописываем в результат probel.wav
end;
inc(position); // увеличиваем указатель, берем следующий символ из code
end;
end;