Incrementar código remotamente por outro form

Saudações,
gostaria de saber como incrementar o código do cliente por outro form.
É o seguinte: No form de cadastro de clientes, ao se clicar no botão incluir, abre-se um pequeno form de opções (clientes novos ou já cadastrados - pois um cliente pode ter várias apólices mas apenas um código. Por isso pus a chave primária como autoinc e cod_cli como integer). Meu problema é apenas no cadastro de clientes novos. No onclick do form de opções eu pus o seguinte:

if rbnovo.Checked = true then
begin
if frmseg.tbsegCod_func.asinteger <> 0 then
frmseg.dbcodfunc.text := inttostr(frmseg.tbsegCod_func.asinteger + 1);

Mas ao executar o dbedit exibe sempre o código 1(o primeiro cliente ele aceita sem problema). a idéia é que o código apesar de ser string, funcione como um autoincremento sempre que for cliente novo e o dbedit fica desabilitado para o usuário. Como eu faço isso? Muito obrigado.