vldscapture1.VideoCaptureDevice.ShowDeviceSelctDialog;     //будем выбирать устройство захвата
vldscapture1.Enabled:=true;
vldscapture1.Start;    //включаем завхат
form1.Caption:='fps='+IntToStr(vldscapture1.FrameRate.InstanceSize);   // в caption будет  количество fps
 vlmotiondetect1.Enabled:=true; //включаем детектор движения
  

var
  I, J : Integer;   //с помошью них будем считать кол-во столбцов и строк и обращаться к ним
begin
  stringGrid1.ColCount := VLMotionDetect1.MotionGrid.Cols;       //создаем
  stringGrid1.RowCount := VLMotionDetect1.MotionGrid.Rows;   //соответствие
  for I := 0 to StringGrid1.ColCount - 1 do
    for J := 0 to StringGrid1.RowCount - 1 do
      begin
      stringGrid1.Cells[ I, J ] := IntToStr( VLMotionDetect1.Items[ I, J ] );   //заполняем StringGrid весовыми коэфициентами движения
      end;
  

vldscapture1.Stop;                  //тушим
vldscapture1.Enabled:=false;   //захват
 vlmotiondetect1.Enabled:=false;   //и детектор движения