Formater un nombre dans une string avec des '0'

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := Format('%.*d', [10,1456]);
end;