TVideoGrabber
Version 4.04  -  March 9, 2002

procedure CaptureFrameTo (Dest: TFrameCaptureDest; FileName: string);
Captures the current frame to a memory Bitmap, a BMP file or a JPEG file, according the the Dest parameter.

The capture is asynchronous and returned by the OnFrameCaptureCompleted event.

Dest = fc_TBitmap: 
The frame capture will return only a TBitmap. In this case the FileName parameter is ignored. 
Dest = fc_BmpFile:
The frame capture creates a BMP file. See the notes below.
Dest = fc_JpegFile: 
same for BMP files above, but creates a JPEG file. See the notes below.

Notes about frame capture to BMP or JPEG files (Dest = fc_BmpFile or Dest = fc_JpegFile):
1. if FileName is left blank, a file name is automatically generated in the StoragePath directory according to the AutoFileName and AutoFilePrefix properties. The file name generated is returned for each frame captured by the OnFrameCaptureCompleted event. 
2. the memory bitmap is always returned by OnFrameCaptureCompleted, even if the Dest parameter is fc_BmpFile or fc_JpegFile. The reason is that you can need to save the file as BMP or JPEG and display it, e.g. in a TImage. The bitmap returned avoids you to have to read the BMP or JPEG file to display the bitmap.

procedure ClosePlayer;
Closes the current clip, if opened.

procedure FastForwardPlayer (Percent: Integer);
Scans rapidly forward through the current clip. The new position is the clip's current position + Percent (percentage of the total length of the clip).

procedure FastReversePlayer (Percent: Integer);
Scans rapidly backward through the current clip. The new position is the clip's current position - Percent (percentage of the total length of the clip).

function IsDialogAvailable (Dialog: TDialog): Boolean;
Returns true if the TDialog dialog is currently available. See ShowDialog.

procedure PausePlayer;
Pauses the opened clip, if currently playing.

procedure OpenPlayer;
Opens the clip specified by the PlayerFileName property.

procedure RebuildDeviceList;
Scans the currently available video and audio devices, and updates the VideoDevices and AudioDevices lists.

function RecompressFile (SourceFile, DestFile: string): Boolean;
Recompresses an uncompressed clip, using the VideoCompressor and/or AudioCompressor settings.

procedure RunPlayer;
Plays a clip, opened by OpenPlayer, or restarts a clip paused by PausePlayer.

function SendDVCommand (DvCommand: TDvCommand): Boolean;
Sends the specified command to the DV camcorder. Returns true on success.

function SetPlayerPosition (Value: Double): Boolean;
Sets the current position of an opened clip (see OpenPlayer). The current position is expressed in seconds. Valid range between 0 and PlayerClipDuration.

procedure ShowDialog (Dialog: TDialog);
displays the TDialog dialog, if available. Use IsDialogAvailable to test if it is.
Warning: ShowDialog(dlg_Capture) usually allows to change only 1 parameter at the same time.

procedure ShutdownGraph;
Ends immediately the current graph (previewing, capturing or playing). The frame grabber is disabled. Using it should be avoided, it is better to cleanly stop the current graph with StopCapture, StopPreview or ClosePlayer.

procedure StartCapture; 
Starts the AVI capture to the CaptureFileName file. If CaptureFileName is left blank, a filename is automatically generated according to the AutoFileName property. The file is created in the StoragePath directory.

procedure StopCapture;
Stops the capture started by StartCapture.

procedure StartPreview;
Starts or restarts the preview. 
Use it to start the preview if AutoStartPreview is disabled to avoid automatically starting preview when the application starts, or to restart the preview when parameters have been set and RefreshPreviewOnParameterChange is disabled.

procedure StopPreview;
Stops the current preview. 
The frame capture is not available when the preview is stopped. To disable the preview but keep the frame capture alive, simply set the Visible property to false. 

property AudioCompressors: string;
List of the audio compressors available on the current platform. 
This list can be directly assigned to a comboBox.  E.g.: ComboBox1.Items.Text := VideoGrabber1.AudioCompressors. 
Select the audio compressor by assigning its list index to the AudioCompressor property. E.g.: VideoGrabber1.AudioCompressor := ComboBox1.ItemIndex. 

property AudioCompressorsCount: integer
Retrieves the number of audio compressors available on the current platform. 

property AudioCompressorName (index: integer): string
Retrieves the name of the audio compressor whose range is index in the AudioCompressors list (range = 0..AudioCompressorsCount-1). See AudioCompressor.

property AudioDevices: string;
List of the audio input devices available on the current platform. 
This list can be directly assigned to a comboBox (e.g. ComboBox1.Items.Text := VideoGrabber1.AudioDevices). 
Select the device by assigning the list index to the AudioDevice property (e.g.: VideoGrabber1.AudioDevice := ComboBox1.ItemIndex).

property AudioDevicesCount: string
Retrieves the number of audio input devices available on the current platform.

property AudioDeviceName (index: integer): string
Retrieves the name of the audio input device whose range is index in the AudioDevices list (range = 0..AudioDevicesCount-1). See AudioDevice.

property AudioFormats: string;
List of the audio formats available.
This list can be directly assigned to a comboBox. E.g. ComboBox1.Items.Text := VideoGrabber1.AudioFormats. 
Select the audio format by assigning its list index to the AudioFormat property. E.g.: VideoGrabber1.AudioFormat := TAudioFormat (ComboBox1.ItemIndex).

Note: the audio format is applied to DV only if type 2 capture with PCM audio compression is used.

property Busy: Boolean;
Returns true if TAVideoGrabber is in an intermediary state (e.g. when switching from preview mode to capture mode, when restarting after a parameter changes, etc...) and cannot execute commands or certain parameter changes immediately).

However, commands and certain parameter changes received by the component when it is in a Busy state are queued and executed as soon as the component becomes available. So, you can send commands without waiting for the component to be back from its busy state.

property CaptureDuration: Double;
Duration of the last captured file since the application started.

property CurrentState: TCurrentState;
Returns the state of TAVideoGrabber.
cs_Down: the component is stopped.
cs_Preview: the component is previewing, accepting frame captures.
cs_Capture: the component is capturing data, while previewing if PreviewCapture is enabled.
cs_Playback: the component is playing back a video.
cs_Compress: the component is recompressing a video (activated by RecompressFile, or by StopCapture when CompressionMode was set to vc_CompressAfterCapture).

property ImageRatio: Double;
Returns the ratio between the Width and Height of the video source.

property IsAnalogVideoIn: Boolean;
Returns true if the video input is an analog device.

property PlayerClipDuration: Double;
Returns the total length in seconds of a clip opened by OpenPlayer.

property PlayerClipFrameRate: Double;
Returns the frame rate of a clip opened by OpenPlayer.

property TVTuner: IAMTVTuner
Gives full control on the functions of the IAMAnalogVideoDecoder interface, the IAMTVTuner interface, derived from the IAMTuner interface.
Note: TVTuner is available if the TV card is WDM compliant.

property VideoCompressors: string;
List of the video compressors available on the current platform. 
This list can be directly assigned to a comboBox.  E.g.: ComboBox1.Items.Text := VideoGrabber1.VideoCompressors. 
Select the video compressor by assigning its list index to the VideoCompressor property. E.g.: VideoGrabber1.VideoCompressor := ComboBox1.ItemIndex.

property VideoCompressorsCount: integer
Retrieves the number of video compressors available on the current platform.

property VideoCompressorName (index: integer): string
Retrieves the name of the video compressor whose range is index in the VideoCompressors list (range = 0..VideoCompressorsCount-1). See VideoCompressor.

property VideoDevices: string;
List of the video devices available on the current platform. 
This list can be directly assigned to a comboBox. E.g.: ComboBox1.Items.Text := VideoGrabber1.VideoDevices. 
Select the video device by assigning its list index to the VideoDevice property.  E.g.: VideoGrabber1.VideoDevice := ComboBox1.ItemIndex.

property VideoDevicesCount: integer
Retrieves the number of video input devices available on the current platform.

property VideoDeviceName (index: integer): string
Retrieves the name of the video input device whose range is index in the VideoDevices list (range = 0..VideoDevicesCount-1). See VideoDevice.

property VideoSizes: string;
List of the video sizes supported by the current video device (does not apply to DV).
This list depends of the current video device and changes when another video device is selected.
This list can be directly assigned to a comboBox. E.g. ComboBox1.Items.Text := VideoGrabber1.VideoFormats. 
Select the video size by assigning its list index to the VideoSize property. E.g.: VideoGrabber1.VideoFormat := ComboBox1.ItemIndex.

property VideoSubTypes: string;
List of the video sub types supported by the current video device. The video subtype is usually the FOURCC code or the RGBnnn type.
This list depends of the current video device and changes when another video device is selected.
This list can be directly assigned to a comboBox. E.g. ComboBox1.Items.Text := VideoGrabber1.VideoSubTypes. 
Select the video sub type by assigning its list index to the VideoSubType property. E.g.: VideoGrabber1.VideoSubType := ComboBox1.ItemIndex.

property VideoHeight: integer;
Returns the height of the video source, in pixels.

property VideoWidth: integer;
Returns the width of the video source, in pixels.

property AnalogVideoStandard: TAnalogVideoStandard;
Sets or retrieves the video standard of analog TV or composite video devices.

property AudioCompressor: integer;
Sets or retrieves the index of the active audio compressor in the AudioCompressors list. Effective only if CompressionMode is set to cm_CompressOnTheFly or cm_CompressAfterCapture and CaptureAudio is enabled.

property AudioDevice: integer;
Sets or retrieves the index of the active audio device in the AudioDevices list.

property AudioFormat: TAudioFormat;
Sets or retrieves the current audio format. The TAudioFormat enumerated type matches the AudioFormats list.

Note: the audio format is applied to DV only if type 2 capture with PCM audio compression is used.

property AutoFileName: TAutoFileName;
fn_Sequential: the file name is based on a sequential number, starting from 000001.
fn_DateTime: the file name is based on a date/time format, like yymmdd_hhmmss_zzz (zzz = milliseconds).

Note about AVI capture file name:
you can choose to force the AVI file name created by the stream capture by setting the CaptureFileName property before calling StartCapture. If CaptureFileName is left blank, a file name is generated automatically and returned by the OnCaptureCompleted event.

Note about BMP or JPEG capture file name:
you can choose to force the file name of BMP and JPEG files created by the frame capture by specifying a file name when calling the CaptureFrameTo procedure. If the file name is left blank in CaptureFrameTo, a BMP or JPEG file name is generated automatically and returned by the OnFrameCaptureCompleted event.

property AutoFilePrefix: string
Sets or retrieves a prefix string placed at the beginning of a capture file name generated automatically. Especially used to distinguish  different serials of files when AutoFileName is set to fn_Sequential (e.g. when several TVideoGrabber components are used in the same app and you want to generate separated serials of files for each component).

property AutoSize: boolean;
Enables or disables the automatic resizing of the video preview window, when the video source size changes.

property AutoStartPreview: Boolean;
Automatically starts the video preview when the component is loaded. If disabled, the preview must be started later by StartPreview.

property AutoSearchNextAvailVideoDevice: Boolean;
If enabled and the current VideoDevice is is use or disconnected, TVideoGrabber tries to locate and select the next available video device. If found, the VideoDevice property is changed to the new video device selected by TVideoGrabber.
This property allows to place several TVideoGrabber components on the same form and automatically start several video capture devices, no matter to the VideoDevice property. Each TVideoGrabber component automatically starts the next available video device it finds.
Note: it may be longer to start several devices when this property is enabled and all the TVideoGrabber.VideoDevice properties are left to their default value (0), because each TVideoGrabber component tries to start the 1st video device, then the 2nd, then the 3rd, etc...

property AVI1IndexCompatibility: Boolean;
Value specifying the AVI index format. True indicates either AVI 1.0 or AVI 2.0 index format; False indicates only AVI 2.0 index format. AVI 2.0 index format allows for increased AVI file size (greater than 1 GB), hierarchical indexing, incremental growth of files, and minimal disk seeks.

property BurstCount: Integer
Sets or retrieves the number of frames to capture when calling CaptureFrameTo.
Setting BurstCount to 0 and BurstInterval to 1 will grab ALL THE FRAMES when calling CaptureFrameTo.
This parameter is ignored when BurstMode is disabled.

property BurstInterval: integer
Sets or retrieves the number of frames to skip between 2 captured frames. Set this value to 1 if you do not want to skip frames (E.g. BurstInterval = 20 means that 1 frame is grabbed every 20 frames).
This parameter is ignored when BurstMode is disabled.

property BurstMode: Boolean
Enables or disables the capture of several frames by calling CaptureFrameTo.
If disabled, only 1 frame is grabbed when calling CaptureFrameTo.
If enabled, CaptureFrameTo starts grabbing frames according to the BurstCount and BurstInterval parameters.

property BusyCursor: TCursor
Sets or retrieves the cursor displayed while the component processes significant tasks (like recompressing or copying captured data, restarting preview or capture). The BusyCursor is displayed when the process starts, and then, the NormalCursor is displayed back when the process finishes. Set BusyCursor to crDefault to disable cursor changes. In this case NormalCursor is ignored.

property CaptureAudio: Boolean;
Enables or disables the audio capture channel. If false, only the Video stream is captured.

property CaptureFileExt: string
Default extension used to create AVI files when the file name is automatically created. The default value is "avi".

property CaptureFileName: string;
Sets or retrieves the full qualified path and name of the AVI capture file to create. If the file is overwritten if it exists when the capture starts. If CaptureFileName is left blank, a file name is generated automatically according to the AutoFileName property.

property CompressionMode: TCompressionMode;
Sets or retrieves the compression mode applied to the capture:

cm_NoCompression: no compression is applied to the avi file created,
cm_CompressOnTheFly: the VideoCompressor and/or AudioCompressor are applied WHILE capturing data,
cm_CompressAfterCapture: the VideoCompressor is applied on the captured file AFTER the capture ends.

Note: this is an enumerated type of 3 elements, so, an integer value from 0 to 2 can be assigned. E.g.: VideoGrabber1.CompressionMode := TCompressionMode (RadioGroup.ItemIndex).

property CompressionType: TCompressionType
Sets or retrieves the compression type applied to the capture:

ct_Video: only the video stream is compressed by the VideoCompressor codec,
ct_Audio: only the audio stream is compressed by the Audiocompressor codec,
ct_AudioVideo: both audio and video streams are compressed by the VideoCompressor and AudioCompressor codecs.

Note: this is an enumerated type of 3 elements, so, an integer value from 0 to 2 can be assigned. E.g.: VideoGrabber1.CompressionType := TCompressionType (RadioGroup.ItemIndex).

property DVCaptureMode: TDvCaptureMode;
DV cameras produce interleaved audio-video; each frame of video also contains the audio information. 

dv_CaptureType1: Includes the native interleaved data as a single stream in the AVI file, with type ivas. This is known as a type-1 file.

dv_CaptureType2: Splits the DV data into separate audio and video streams, with types auds and vids. This is known as a type-2 file.

For video capture, where maximum throughput is crucial, it is better to save the data as type-1. This is because type-2 files carry redundant data. Te type-1 format is not compatible with Microsoft® Video for Windows.

property DVCaptureResolution: TDVResolution;
Sets or retrieves the size of the digital video sample captured:

dvr_default:  default DV device resolution,
dvr_Dc:       88 x 66 (NTSC),   88 x 72 (PAL)
dvr_Quarter: 180 x 120 (NTSC), 180 x 144 (PAL)
dvr_Half:    360 x 240 (NTSC), 360 x 288 (PAL)
dvr_Full:    720 x 480 (NTSC), 720 x 576 (PAL). 

property DVPreviewResolution: TDVResolution;
Sets or retrieves the size of the digital video sample previewed. See above.

property DVReduceFrameRate: Boolean;
Enables or disables the reduction of the frame rate. If enabled, discards half of the frames in the video stream. For NTSC, the frame rate is reduced from 30 frames per second (fps) to 15 fps. For PAL, the frame rate is reduced from 25 fps to 12.5 fps.

property FrameGrabberEnabled: Boolean;
If true, the frame grabber is inserted in the capture graph, either on the capture stream or the preview stream according to FrameGrabberOnCaptureStream. Disable the frame grabber to minimize the number of dropped frames for a given frame rate, if any. If disabled, no more frames can be captured by CaptureFrameTo.
The default value is true.

property FrameGrabberOnCaptureStream: Boolean;
If true, TVideoGrabber tries to insert the frame grabber on the capture stream, otherwise it tries to insert it on the preview stream.
If the choosen stream fails to insert the frame grabber, TVideoGrabber automatically inserts it on the other stream.
The default value is false.
Note: the frame grabber must have been enabled by FrameGrabberEnabled.

property FrameRate: Double;
Sets or retrieves the frame rate in frames per second. Does not apply to DV (see DV resolutions above).

property JPEGPerformance: TJPEGPerformance = (jpBestQuality, jpBestSpeed);
Controls the trade-off between color quality and speed of decompression of
JPEG files created by CaptureFrameTo.

property JPEGProgressiveDisplay: boolean;
Use ProgressiveDisplay to turn on or off the incremental display of an image when reading in JPEG files created by CaptureFrameTo.

property JPEGQuality: TJPEGQualityRange = 1..100;
Use CompressionQuality to set the compression quality of a JPEG image created by CaptureFrameTo. Higher compression results in a poorer picture quality, but a smaller file size.

property MaintainImageRatio: Boolean;
Maintains the image ratio of the video within the display control. 

property NormalCursor: TCursor
Sets or retrieves the cursor type that is restored after a process finishes that displayed BusyCursor. If BusyCursor is left to crDefault, NormalCursor is ignored. See the BusyCursor property.

property PlayerAutoStart: Boolean;
If enabled, clips starts automatically after calling OpenPlayer. If disabled, clips are opened and immediately displayed in a paused mode.

property PlayerFileName: string;
Sets or retrieves the file name of the clip to play. Then, call OpenPlayer.

property PlayerRate: Double
Sets or retrieves the value of the player rate, used when playing a captured file or a clip (call OpenPlayer, and then RunPlayer). The value is expressed as a ratio of the normal speed. 1.0 is normal playback speed, 0.5 is half speed, 2.0 is twice speed.

property PreallocCapFileEnabled: Boolean;
Enables the pre-allocation of a capture file. For best capture results, capture to a unfragmented, pre-allocated capture file that is larger than the size of the capture data.

property PreallocCapFileName: string;
Sets or retrieves the full qualified path and name of the pre-allocated file. If left blank, a generic filename is created in the StoragePath directory. Effective only if PreallocCapFileEnabled is true.

property PreallocCapFileSizeInMB: integer;
Size of the preallocated capture file in Mb. For best results, the size should be larger than the size of the capture data. Effective only if PreallocCapFileEnabled is true.

property PreallocCapRecreate: Boolean;
If true, the preallocated file is recreated each time a capture starts. Effective only if PreallocCapFileEnabled is true. 

property RefreshPreviewOnParamChange: Boolean;
If true, the previewed video is restarted each time a parameter is set.  
If false, the previewed video is not refreshed when new values are assigned to the TVideoGrabber's parameters. In this case use StartPreview to apply the new parameters (it is not necessary to call StopPreview to restart the preview with StartPreview).

property RenderAudio: Boolean;
Enables or disables the audio rendering. If the audio capture device is a microphone and RenderAudio is enabled, take care to keep the microphone away from the speakers, otherwise you will get loop back echoes.

property StoragePath: string;
Sets or retrieves the full qualified path where video captures and bmp snapshots will be stored. If left blank, the default storage path is the directory.

property VCompKeyFrameRate: Integer;
Sets or retrieves then desired video compressor's key-frame rate. If the value is negative, the filter will use the default key-frame rate. If the value is zero, only the first frame will be a key frame.

property VCompQuality: Double;
Specifies the video compressor's quality as a value between 0.0 and 1.0, where 1.0 indicates the best quality and 0.0 indicates the worst quality. If the value is negative, the filter will use the default quality.

property VideoCompressor: integer;
Sets or retrieves the index of the active video format in the VideoCompressors list. Effective only if CompressionMode is set to cm_CompressOnTheFly or cm_CompressAfterCapture.

property VideoDevice: integer;
Sets or retrieves the index of the active video device in the VideoDevices list.

property VideoSize: integer;
Sets or retrieves the index of the video size in the VideoSizes list. Does not apply to DV.

property VideoSubType: string;
Sets or retrieves the index of the video subtype in the VideoSubTypes list. The list Does not apply to DV.

property Visible: Boolean;
If enabled, the preview window (or player window) is visible. Is disabled, the preview is not visible, but capture can be started and frames can be grabbed if the graph has not been shut down by the ShutDownGraph procedure.

property OnCaptureCompleted (Sender: TObject; FileName: string; Succeeded: Boolean);
Occurs after a StopCapture call, when the process is fully completed (with or without success).
FileName returns the file name of the AVI file. Useful to know the file name automatically generated if CaptureFileName was left blank before calling StartCapture.

property OnCaptureProgress (FDroppedFrames, FDeliveredFrames: integer);
Occurs while previewing or capturing streams. Returns the number or delivered frames (and possibly dropped frames) since the last preview start or capture start.

property OnCaptureReadyToStart (Sender: TObject; var OkToStart: Boolean);
Occurs after calling StartCapture, when the capture is really ready to start writing data to disk. Use this event to accurately start capturing data, e.g. using a MessageDlg box like "start capture now?". At this point the capture can be cancelled by setting OkToStart = false.

property OnCaptureStarted (Sender: TObject);
Occurs when the capture starts writing captured data to the disk.

property OnChangeAudioDevice (Sender: TObject);
Occurs when a new device is selected (or disconnected).

property OnChangeVideoDevice (Sender: TObject);
Occurs when a new device is selected (or disconnected).

property OnComponentLoaded (Sender: TObject);
Occurs immediately after starting the application, when the component is fully loaded and ready to accept commands.

property OnCopyPreallocDataCompleted (Sender: TObject; Succeeded: Boolean);
Occurs when the valid data has been fully copied from the pre-allocated file to a new file. As a result, the new file can be much smaller than the preallocated  file.

property OnCopyPreallocDataStarted (Sender: TObject);
Occurs when the valid data is about to be copied from the pre-allocated file.

property OnCreatePreallocFileCompleted (Sender: TObject; Succeeded: Boolean);
Occurs when the pre-allocated file is created.

property OnCreatePreallocFileStarted (Sender: TObject);
Occurs when the pre-allocated file is about to be created.

property OnDeviceArrival (Sender: TObject);
Occurs when a video or audio device is connected.

property OnDeviceLost (Sender: TObject);
Occurs when the video or audio device currently previewing or capturing is disconnected.

property OnDeviceRemoval (Sender: TObject);
Occurs when the current video or audio device is disconnected.

property OnDirectX8Required (Sender: TObject);
Occurs while the component is loading if DirectX8 is not installed on the current platform. DirectX8 or above is required by TVideoGrabber.

property OnDiskFull (Sender: TObject);
Occurs when no more disk space is available while capturing data or recompressing a file. The detection level is 25 Mb free.

property OnErrorLog (Sender: TObject; ErrorCode: Integer; ErrorMsg: String);
Returns error messages with their associated code.

property OnFrameCaptureCompleted (Sender: TObject; DestType: TFrameCaptureDest; FileName: string; Succeeeded: Boolean);
Occurs after a call to CaptureFrameTo when the frame is available as a memory bitmap, a BMP file or a JPEG file, according to the DestType value, initially specified in the CaptureFrameTo procedure call. If FileName was left blank when calling CaptureFrameTo, a file name is automatically generated and returned by this event.

property OnFullScreenKeyPress (Sender: TObject; var Key: Char);
Occurs when pressing a key while displaying in full screen mode. Allow to associate commands with keyboard keys (ESC is reserved to the exit from the full screen mode).

property OnNoVideoDevices (Sender: TObject);
Occurs if there is video device available when the component loads.

property OnPlayerCompleted (Sender: TObject; Succeeded: Boolean);
Occurs when a playback ends. Returns true on success.

property OnPlayerEndOfStream (Sender: TObject);
Occurs when end of the clip currently playing is reached.

property OnPlayerFileNotFound (Sender: TObject; FileName: string);
Occurs if the play back file invoked by StartPlayBack is not found.

property OnPlayerStarted (Sender: TObject);
Occurs when a file playback starts.

property OnPreviewStarted (Sender: TObject);
Occurs when the preview is active.

property OnRecompressCompleted (Sender: TObject; Succeeded: Boolean);
Occurs when a video file stream recompression ends. Returns true on success.

property OnRecompressStarted (Sender: TObject);
Occurs when a video file stream recompression starts.

property OnResizeVideo (Sender: TObject; FVideoWidth, FVideoHeight: integer);
Occurs when the size of the video source changes.

property OnTimeCodeReader (Sender: TObject; TrackNum: integer; hh, mm, ss, ff: integer);
Occurs when time code is read from devices like a camcorder.

Q: My project crashes when closing the form.

A: according to the way you use forms, the FormClose and FormCloseQuery events of the TVideoGrabber's form may not be called when closing the project, well, TVideoGrabber hooks these events to intercept the "form close" request and cleanly stop and free the current graph.

To fix the problem, change the main form FormClose code as following (let's say that the main form is named MainForm and the TVideoGrabber form is named VidGrabForm):

procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   if MessageDlg('Quit project?' , mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin
      VidGrabForm.Close;
   end
   else begin
      Action := caNone;
   end;
end;

If you are using WinZip, check that the "use folder names" checkbox is enabled before extracting the files.