[[fjcg02]]

Te dejo una query para que la pruebes.
Probada en Firebird 2.0
Te queda de deberes concatenar los campos y poner los de tu tabla

Código SQL [-]
select case  cod_cli 
                 when 1 then '-' 
                 when 2 then'--' 
                 when 3 then '---' 
                 else 'no encontrado' 
                 end as nivel,
                 cast(cod_cli as varchar(2)) as cod from cliente

resultado

Código Delphi [-]
Nivel cod
-       1
--      2
---    3
----  4
no encontrado 27

Suerte