CaptureWindowUnderCursor Example for Delphi 4.0

    {set 3 sec delay}
    LEADScr1.CaptureDelay := 3000;

    {capture window under cursor}
    LEADScr1.CaptureWindowUnderCursor();

    {copy the captured image to a Main Control}
    LEAD1.Bitmap := LEADScr1.Bitmap;