ISISGetASCIITagChoiceCount example for Delphi

var
   n: Longint;
   x: Longint;
   szChoice: PChar;

begin
   LEADISIS1.ISISLoadDriver( ) ;
   LEADISIS1.ISISGetASCIITagChoiceCount ( TAG_PAGESIZE, @n );
   ShowMessage ( 'Scanner has ' + IntToStr(n) + ' choices' ) ;
   for x:= 0 To n - 1 do
   begin
      LEADISIS1.ISISGetASCIITagChoice ( TAG_PAGESIZE, x, @szChoice ) ;
      ShowMessage ('Choice: ' + IntToStr(x) + '  Value: ' + szChoice ) ;
      if (szChoice<> Nil ) then
      begin
         GlobalFree (Cardinal (szChoice));
         szChoice:= Nil;
      end;
   end;
   LEADISIS1.ISISUnloadDriver ();
end;