procedure TForm2.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin try
if FilterGraph1.Active then FilterGraph1.Active :=false;
except
on E : Exception do _log_entry_error(E.ClassName,E.Message,'D20000');
end;End;