Nastavení IP (Delphi)

Zdravím.
Kdysi jsem si dělal program na nastavení IP v mém PC.

Zkoušel jsem to podle tohohle.
http://www.developpez.net/forums/archive/index.php /t-476980.html

Zkoušel jsem to i přes netsh
shellexecute(handle,'open','netsh.exe',
'interface ip set address "Local Area Connection" ' +
'static 10.0.0.9 255.0.0.0 10.0.0.1',
nil,sw_hide);

Pod Windows XP to však trvá strašně dlouho.
Nedávno jsem narazil na prográmek Net Profile, který je i pod XP dost svižný.
netprofiles
Neví někdo jestli je v delphí ještě nějaké jiné řešení než ty 2 co trvají tak dlouho?
Jakým způsobem to řeší autor prográmku.