Delphi dicas

Retornar o próximo registro a ser incluido

Function proximacontarec: integer; var q: TZQuery;

begin

        q := TZQuery.Create(Application);

        with q do begin

                Connection := fmDados.ZConnection;

                sql.Add('select max(odemcontarec) from conta_receber');

                Active := true;

                Result := Fields[0].AsInteger + 1;

                Active := false;

        end;

end;

por : Francisco