Udskiftning af ikoner

Jeg har et program, og når BASS_ChannelPlay(Channel, true) kører, så skal ikonet på mit program være 1, og når BASS_ChannelPlay(Channel, true) ikke kører, skal ikonet være 0. Det virker fint når programmet ikke kører, men ikke når ikonet skal være 1.. hvordan kan det være?



  if BASS_ChannelPlay(Channel, true) = true then begin Cooltrayicon1.Hint := 'Heste og køer';
    Cooltrayicon1.IconIndex := 1

    end
    else
   
  Cooltrayicon1.Hint := Får og køer';
  Cooltrayicon1.Iconindex := 0;
end;