Ich würde es so machen:
ShellExecute(Application.Handle, nil, 'netsh', 'interface ip set address "LAN-Verbindung 2" static 192.168.15.1 255.255.255.0 192.168.15.150 0', nil, SW_HIDE);
[edit]Sehe gerade, der Code hinter dem Link ist so wie meiner (bis auf ohne
Handle)[/edit]