[Rokuell]

А никак. Нечто подобное можешь сделать через указатели.
для String:

Код:

var GlobalVar1,GlobalVar2:string;

procedure New();
const
  ArrV : array [0..1] of Pointer = (@GlobalVar1, @GlobalVar2);
begin
 PString(ArrV[0])^ := 'FFFFFF';
 PString(ArrV[1])^ := 'qwerty';
end;

или общий вариант:

Код:

var GlobalVar1,GlobalVar2:<type>;

procedure New();
const
  ArrV : array [0..1] of Pointer = (@GlobalVar1, @GlobalVar2);
type Mtype = ^<type>;
begin
 Mtype(ArrV[0])^ := <value>;
 Mtype(ArrV[1])^ := <value>;
end;