[royun]

На другом форуме подсказали. Может кому понадобится

Код:

f4 := Format('%.*d', [8 - Length(f4), 0]) + f4;
f5 := Format('%.*d', [8 - Length(f5), 0]) + f5;
f6 := Format('%.*d', [8 - Length(f6), 0]) + f6;