请问在DELPHI中如何调用扫描仪

安装ActiveX控件 "Kodak Image Scan Control" (Select Component|Import ActiveX Control...) ，在“ActiveX”面板下出现一个TImgScan控件，添加它，在Object Inspector中更改如下属性值：
FileType = 3 - BMP_Bitmap 
PageOption = 4 - OverwritePages 
ScanTo = 2 - FileOnly
参考如下代码：
procedure TForm1.Button1Click(Sender:TObject); 
begin 
if imgScan1.ScannerAvailable then 
try 
 imgScan1.Image:='c:\Scanner.bmp'; 
 imgScan1.OpenScanner; 
 imgScan1.Zoom:=100; 
 imgScan1.StartScan; 
 Application.ProcessMessages; 
 finally 
 imgScan1.CloseScanner; 
 Image1.Picture.LoadFromFile(TImgScan1.Image); 
 end; 
end;