IsAvailable example for Delphi

procedure TForm1.btnIsAvailableClick(Sender: TObject); 
var
   nRet: L_INT; 
   bAvailable: Boolean; 
begin
   { Check to see if TWAIN is installed }
   bAvailable:= LEADTwain1.IsAvailable ( Handle ); 
   if ( bAvailable ) then
   begin
      LEADTwain1.ManName:= 'LEAD Technologies, Inc.'; 
      LEADTwain1.ProdFamily:= 'LEAD Test Applications'; 
      LEADTwain1.Version:= 'Version 1.0'; 
      LEADTwain1.AppName:= 'TWAIN Test Application'; 
      nRet:= LEADTwain1.InitSession ( Handle ); 
      if ( nRet <> SUCCESS ) then
         Exit; 

      LEADTwain1.Acquire ( LTWAIN_SHOW_USER_INTERFACE ); 

      LEADTwain1.EndSession (  ); 
   end; 
end;