Foros Club Delphi - Campo autoincremental

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

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.