Incremento.

Uma sugestão:

function retornaCodigo(CODIGO):String;
var
incremento:String;
qry:TQuery;
begin
qry := TQuery.Create(self);
qry.Databasename := (seu database);
qry.sql.Text :=´SELECT MAX(CODCLI) AS CD_CLI FROM TB_CLIENTES WHERE CODCLI LIKE ´CODIGO¬´´;
try
qry.open;
if qry.FieldByName(´CD_CLI´).IsNull then //Não existe
begin
incremento := ´001´;
result := CODIGO+Incremento;
end
else
begin
incremento := Format(´000´,StrToInt(copy(qry.FieldByName(´CD_CLI´).AsString,7,3))+1);
result := CODIGO+Incremento;
end;
finally
qry.close;
end;
end;