Como reiniciar un campo autoincrement-Paradox
 

Hola,
agradeceria si me pudieran ayudar para saber como o donde buscar información para reiniair un campo autoincrement en una tabla en paradox.
Tengo una tabla en paradox uno de sus campos es autoincrement, cuando borro un registro y adiciono otro, el campo autoincrement sigue sin tener en cuenta que el borrado fue el último.
gracias.

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
 begin
                        Table1.Close;
                      
 SetAutoInc('C:\Delphi\Prueba.db',StrtoInt(edit1.text));
                       Table1.Open;
 end;
 
 Procedure SetAutoInc(filename : string; Value : Longint);
                      var
                       mystream : tfilestream;
                      begin
                       mystream := tfilestream.create(filename,
                                   fmOpenWrite + fmShareExclusive);
                       try
                         mystream.Seek(73, soFromBeginning);
                         mystream.Writebuffer(Value, SizeOf(Value));
                       finally
                         mystream.Free;
                       end;
                      end;

Un Saludo.

Gracias,
 

funciono perfecto, mil gracias