Fórum campo auto incremento #55945

estou tentando fazer um auto incremento com o componente ztable e com a seguinte procedure

procedure tbautoinc(table:ttable;const fieldname:string);
var
q:tquery;
begin
if not table.FieldByName(fieldname).isnull then
exit;
q:=tquery.Create(nil);
try
q.DatabaseName:=table.DatabaseName;
q.sql.Add(´select max(´+fieldname+´) from ´+table.TableName);
q.open;
try
table.FieldByName(fieldname).asinteger:=q.Fields[0].asinteger+1;
finally
q.close;
end;
finally
q.free;
end;


e no evento before post

tbautoinc(tbcadimobiliario,´codimobiliario´);

como fazer isto com o componente ztable do zeus