reiniciar campo auto incremento

[marcoszorrilla]

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.