[marcoszorrilla]

O creas una tabla nueva, para cuando empiece a funcionar la aplicación, O utilizas este código:

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.