Ок. Сам немогу, то же нет времени. Не горит, но нужно. Мои хотелки (видение) :
Код:
tx = record
ip,mask : string(?); // но может и не стринг
... //чего-еще видимо
end;
var
x0,x1 : tx;
begin
x0 := getx();
x1.ip := ...
x1.mask := ...
setx(x1);
//тут мое
setx(x0);
end;
+ какой-нить статус/ошибка по результату (буль или перечисление)
Все жуткие буковы (типа приведенной Вами выше)) ) в сад внешнего юнита.Нужно getx/setx. Рабочие.
Если нужны еще какие-нить телодвижения - в procedure телодвижения(); с комментом - где телодвигатся
Сам релиз посмотрю в отпуске. Если хватит смелости.
PS
Ну и интимный, оцифрованный вопрос
PSPS
Кстати, имя сетевого подключения заранее неизвесно - это видимо ключевой вопрос. Допускаю стандартное "Подключение по локальной сети"