procedure THIGlobalVar._work_doName;
var nName:string;
begin
nName := LowerCase(ToString(_Data));
if nName<>'' then GData := ForceGVar(nName);
end;
И фиг с ним со старым именем - пусть себе продолжает лежать в NList вместе с динамическими данными на которые ссылается .....