Como colocar zeros à esquerda de números?
{ Isto coloca zeros à esquerda do número até completar 6 casas }
S := FormatFloat('000000', 5);