Index Exists / Index Doesn't Exists!

Hi-

I'm trying to build a simple index on the fly on a Dbase Table.  It is a
file we use from an old dBase III program as an export into our Delphi App.
So the index wants to be a type .NDX.  I tried using the Code below, but
keep getting Index Exists or Index Doesn't Exist even when it does not exist
or even if it does exist and vice versa....!?

So how can I do this?    Here is the Code -- What's wrong with it.....!?:

  Try
    With Table1 Do
       Begin
          If Active = True Then Close;
          Exclusive := True;
          AddIndex('ACONTACT','NUMBER',[]);
          Exclusive := False;
       End;
  Except
    With Table1 Do
       Begin
          If Active = True Then Close;
          Exclusive := True;
          DeleteIndex('ACONTACT');
          AddIndex('ACONTACT','NUMBER',[]);
          Exclusive := False;
       End;
  End;

Thanks!

Richard Wakeman
wake...@adelphia.net