Capture example for Delphi

This example captures the current form and displays the captured image with scroll bars.

{Turn on the automatic display rectangles.}
Lead1.AutoSetRects := True; 
Lead1.Capture( 0, Left, Top, Width, Height);
Lead1.AutoScroll := True;
Lead1.ForceRepaint;