Código seqüencial automático

{Você manda o caminho (Alias "C:Windows"), nome da tabela (tabela.db) e o campo primário (código por ex) e ele auto-incrementa, se quiser usar formatação é só colocar. }
Function AutoIncrementoManual(Const pAlias:String; pTabela:String; pCampo:String):Integer;
var
vQry : tQuery;
int : integer;
begin
vQry := tQuery.Create(Application);
with vQry do begin
DatabaseName := pAlias;
SQL.Add('Select Max(' + pCampo +') as Proximo');
SQL.Add('From '+ pTabela);
Open;
int:= FieldByName('Proximo').asInteger + 1;
Result := int;
free;
end; {with vQry}
end;