procedure TForm1.FormCreate(Sender: TObject); begin VideoGrabber.Display_AutoSize := True; VideoGrabber.AutoRefreshPreview := true; VideoGrabber.VideoSource := vs_ScreenRecording; end;