Algo rápido,
Código Delphi
[-]
procedure TForm1.BitBtn1Click(Sender: TObject);
var
Contador: integer;
begin
Contador := 1000000;
ShowMessage(Format('Contador = : %15.0n',[Contador*1.0]));
end;
Aunque podrías darle una leída a la funcion
FormatMaskText() tal vez encuentres algo que te ayude.
Salud OS
Edito: Bueno el amigo
keyboy ya te ha dado un explicación sin desperdicio.