maybe this will help...
var
Tag: String;
Data: PChar;
begin
Data := BASS_WMA_StreamGettags(Stream, 0);
if Data <> nil then
begin
while Data^ <> #0 do
begin
Tag := StrPas(Data);
{ Tag will contain the whole tag }
{ For example, Title="Pepito" }
Data := Data + Length(StrPas(Data)) + 1;
end;
end;
end;