Incrementar campo según el valor de otro

[Kipow]

Algo asi

Código Delphi [-]
create trigger MITABLA_AI for MITABLA 
active AFTER INSERT position 0 as 
begin    
     UPDATE MITABLA SET Columna_Valor = SELECT MAX(Columna_Valor) + 1                                       
                                                          FROM MITABLA                                        
                                                          WHERE Tipo = NEW.Tipo
     WHERE Tipo = NEW.Tipo    
end