OnCaptureImage Example for Delphi 4.0

procedure TForm1.LEADScr1CaptureImage(Sender: TObject;

  nCurrentPageNumber: Integer);

begin

{copy the captured image to a Main Control and save it}
    LEAD1.Bitmap := LEADScr1.Bitmap;
    LEAD1.Save('d:\temp\test.tif', FILE_TIF, 0, 2, SAVE_APPEND);
end;