CaptureMouseCursor Example for Delphi 4.0

    {capture current mouse cursor}
    LEADScr1.CaptureMouseCursor();
    {copy the captured image to a Main Control}
    LEAD1.Bitmap := LEADScr1.Bitmap;