procedure TForm2.VideoAudioManager1Click(Sender: TObject);
begin try
if Sender<>nil then play_snd(1);
NoteBook1.PageIndex :=4;
if Sender<>nil then begin
   if not self.FilterGraph1.Active then self.draw_logo.Enabled :=true;
end;
except end;End;