procedure TForm8.TrackBar2Change(Sender: TObject);
begin try
Form2.DSVideoWindowEx1.ColorControl.Contrast := TrackBar2.Position;
except end;End;