Parametros de Function ?

Seguinte, criei uma tabela para armazenar os código incrementado do meu sistema,

Tabela INCREMENTO
COLUNAS
DESCRICAO e ID

eu tenho cadastrado nessa tabela todas as colunas colunas ID de minhas tabelas, criei essa funcao no Datamodule daí eu só passo o parametro coluna, ou seja o codigo ID da tabela correspondente e filtrar e incrementa o campo, daí eu quero como retorno da funcao o valor de ID

está incrementando normal, mais não está retornando o ID

o que está errado ?


function Tdm_Database.AutoIncremento(const Coluna: String) : Integer;
begin
With SQL_AUTOINC do
try
Close;
CommandText := ´Select * from INCREMENTO Where DESCRICAO = :DESCRICAO´;
ParamByName(´DESCRICAO´).AsString := Coluna;
Open;

if ClienteDataset_AUTOINC.RecordCount <> 0 then
begin
ClienteDataset_AUTOINC.Edit;
ClienteDataset_AUTOINC.FieldByName(´ID´).AsInteger :=
ClienteDataset_AUTOINC.FieldByName(´ID´).AsInteger + 1;
ClienteDataset_AUTOINC.ApplyUpdates(-1);

Result := ClienteDataset_AUTOINC.FieldByName(´ID´).AsInteger;
end;
finally
Result := 0;
Close;
ClienteDataset_AUTOINC.Close;
end;
end;


Obrigada !

Renata Coimbra