Código Delphi - Código Sequencial Automático

Código Delphi

// Função: Código Sequencial Automático

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; end;