[AlexSku]

Пример на DirectShow (можно изображение делать зеркальным)
файл проекта:

Код:

program Grabber;

uses
  ActiveX,
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  ConFilters in 'ConFilters.pas';

{$R *.res}

begin
  Application.Initialize;
  // Initialize the COM system
  CoInitialize(nil);

  Application.CreateForm(TForm1, Form1);
  Application.Run;

  // Shut down the COM system
  CoUninitialize();
end.