Shell("sys a:") - kender du en bedre måde??

Jeg ville gerne kunne formatere en diskette og samtidig overføre systemfiler, sådan at den kan bruges som bootdiskette.
Det kan jo gøres sådan her:
Shell("Format a:")
Shell("Sys a:")

Men for det første venter shell nr 2 ikke på at den første shell er eksekveret, så her sker en systemfejl, og for det andet bliver brugeren mødt med en masse dosprompter!
Jeg har også prøvet med at Declare Shellexecute o.s.v. men det løser heller ikke problemet!
Er der en der kender en API funktion der kan Formatere, og en der kan lave systemdisketter, og hvordan ser man at funktionen er udført, så man ikke laver systemfejl??