procedure TForm2.oxGraphicButton16Click(Sender: TObject);
begin try
play_snd(1);
if form2.FilterGraph1.Active then begin
   form8:=Tform8.Create(nil);
   form8.Show;
end else begin
   msgbox('Video file not available !','First play the video file to adjust its color settings.',0,0);
   self.draw_logo.Enabled :=true;
end;
except
on E : Exception do _log_entry_error(E.ClassName,E.Message,'C20000');
end;End;