procedure TForm2.XiTrackBar1Change(Sender: TObject);
begin try
DSVideoWindowEx1.DigitalZoom :=XiTrackBar1.Position;
except
on E : Exception do _log_entry_error(E.ClassName,E.Message,'C50000');
end;End;