no entendi si lo que quieres son guiones bajos entre los valores... si es asi...
Código Delphi
[-]FormatDateTime('hh_nn_ss',time)
eso mostrara precedido de ceros cada valor (ademas de los guiones bajos)
como por ejemplo : 14_09_15 ( 14:09:15)
si no quieres valores con ceros adicionales....
Código Delphi
[-]FormatDateTime('h_n_s',time)
como por ejemplo : 14_9_15 (14:09:15)
espero haber entendido tu pregunta...