CaptureMenuUnderCursor Example for Delphi 4.0

    {set a 5 sec delay}
    LEADScr1.CaptureDelay := 5000;
    {capture a menu}
    LEADScr1.CaptureMenuUnderCursor();
    {copy the captured image to a Main Control}
    LEAD1.Bitmap := LEADScr1.Bitmap;