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;