Was logisch ist, da du nur den Destruktor aufrufst, aber das Objekt (in dem fall TComponent) nicht freigibst.
Delphi-Quellcode:
if Assigned(BASSVis1)then
BASSVis1.free;
if Assigned(BASSWMPVis1) then
BASSWMPVis1.free;
BTW...für was brauchst du da eine TComponent-Klasse ?