Gerar um codigo do tipo autoincrement apartir do ultimo Regs

Caros amigos programadores.....

Estou precisando urgentemente gerar um codigo do tipo autoincrement no delphi, apartir do ultimo registro gravado a função que estou utilizando e a seguinte:
var
J:integer;
Valor: TstringField;
Id:TstringField;
begin
valor:=Table1.FindField(´identificacao´) as TstringField;
if valor.value <>´´ then
begin
{Id:=Table1.FindLast (´identificacao´) as TstringField;}
J:=inttostr(Table1.FindLast[´identificacao´] + 1);
end;
Campo.text:=inttostr(J);
Table1.Insert;
botao1.enabled:=true;
botao2.enabled:=false;
end;