program Screen_Capture_Demo;

{ Process events here }
procedure OnDocumentComplete(URL : string);
begin
  if IsPartOf('http://www.google.com', URL) then
    begin
      Sleep(2000);
      // capture using coordinates
      ScreenCaptureXY('c:\Temp\googleXY.bmp', 300, 150, 900, 600);
      // capture using type: SCREEN, WINDOW or CLIENT
      ScreenCaptureToFile('c:\Temp\google.jpg', 'SCREEN');
      // capture and send to Clipboard
      ScreenCaptureToClipboard('CLIENT');
      ShowMessage('Screen captured!');
    end;
end;

{ This is the main program body. }
begin                           
  Navigate('http://www.google.com');  
end.