mapowanie dysków

Mam pytanko moze ktos mi pomoze jak zapisać cos takiego??? w delphy pod butona aby po kliknieciu uruchamiało sie mapowanie
normalnie z pod win to start> uruchom> subst a: f:\ enter i działa
w c++ wyglada to tak :
{
system("subst a: f:\");
}
wiec moze mi ktos podpowie jak w delphy to wykonać </i>

uses ShellAPI;
ShellExecute(Handle, 'open', 'subst', 'a: f:\', '', SW_HIDE);