var
  Form1: TForm1; //эта строка есть по умолчанию
  FN:String;// а эту дописываем

 
procedure TForm1.FormDestroy(Sender: TObject);
begin
FilterGraph1.Free;
end;
 

 
LinearVolume:=true
GraphEdit:=true

 
Align= AlClient; //(чтобы видео заполняло все пространство рабочего стола)
FilterGraph:=FilterGraph1;

 
OpenDialog1.ute;
FN:=OpenDialog1.FileName;
FilterGraph1.ClearGraph;
FilterGraph1.Active:=true;
FilterGraph1.RenderFile(FN);
FilterGraph1.Play;

 
FilterGraph1.Play;

 

FilterGraph1.Stop;

 
If Not DSVideoWindowEx21.DesktopPlayback then
  Begin
     DSVideoWindowEx21.StartDesktopPlayback(Screen.Monitors[0]) ;
   End
  else
    DSVideoWindowEx21.NormalPlayback;

 
FilterGraph:=FilterGraph1

 
FilterGraph1.Volume:=DSTrackBar3.Position;

 
if DSTrackBar1.Position=DSTrackBar1.Max then
Begin
FilterGraph1.Stop;
 filterGraph1.Position:=1;
  FilterGraph1.Play;
 end;

 
1.DSVideoWindowEx21.ColorControl.Brightness //TrackBar1
2.DSVideoWindowEx21.ColorControl.Contrast //TrackBar2
3.DSVideoWindowEx21.ColorControl.Hue //TrackBar3
4.DSVideoWindowEx21.ColorControl.Saturation //TrackBar4

 
DSVideoWindowEx21.ColorControl.Brightness := TrackBar1.Position;

 
DSVideoWindowEx21.ColorControl.Contrast := TrackBar2.Position;

 
DSVideoWindowEx21.ColorControl.Hue:=TrackBar3.Position;

 
 DSVideoWindowEx21.ColorControl.Saturation:=TrackBar4.Position;