Rellenar con 0 a la izquierda

[compuin]

Hola foro

Estoy usando este format para colocar una expresion en HH,MM y SS

Necesito que me exprese 21H 04M 03S, en lugar de 21H 4M 3S

Es decir, a los numeros menores a 10, que les agregue el 0 a la izquierda

Este es mi format

Código Delphi [-]
format('%dh %d'' %d"',[d, trunc(m), trunc(s)]);

Gracias de antemano