procedure TForm8.TrackBar1Change(Sender: TObject);
begin try
Form2.DSVideoWindowEx1.ColorControl.Brightness := TrackBar1.Position;
except end;End;