procedure TForm8.FormClose(Sender: TObject; var Action: TCloseAction);
begin try
if not form2.FilterGraph1.Active then form2.draw_logo.Enabled :=true; 
Action:=cafree;
except end;End;