ISISAcquire example for Delphi

{The following example acquires a single image using ISISAcquire.}
var
   bLoaded : Boolean;
Begin
   bLoaded := False;
   LeadIsis1.EnableMethodErrors := True;
   try
      LeadIsis1.ISISLoadDriver();
      bLoaded := True;
      LeadIsis1.ISISAcquire(ISIS_SHOWUI);
   except
      If LeadIsis1.Error <> ERROR_ISIS_CANCEL Then
         ShowMessage('Error ' + IntToStr(LeadIsis1.Error) +
            ' during ISIS Scan!' + #10 + LeadIsis1.ErrorMsg);
      if bLoaded Then
         LeadIsis1.ISISUnloadDriver;
      Exit;
   end;
   LeadIsis1.ISISUnloadDriver;
   Lead1.Bitmap := LeadIsis1.Bitmap
end;