Problemas con Format()

[[egostar]]

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.