for i := 1 to Length(MyString) do
 case MyString[i] of
  'A': ...воспроизводи файл, соответствующий символу 'A' ...;
  'B': ...воспроизводи файл, соответствующий символу 'B' ...;
..
  'Z': ...воспроизводи файл, соответствующий символу 'Z' ...;
 else
   ...воспроизводи файл, соответствующий любому прочему символу ...    
 end;