Fórum Auto Incremento #223021

function TForm.MaiorCodigo(nometab, nomecampo: String): Integer;
begin
     with qrySql do
       begin
         Close();
         Sql.Clear();
         Sql.Add(´SELECT MAX(´ + nomecampo + ´) FROM ´ + nometab);
         Open();
         Result := Fields[0].AsInteger;
         Close();
       end;
end;

 Qry.FieldByName(´campo´).Asinteger := MaiorCodigo(´tabela´,´campo´) + 1