[[maeyanes]]

Tambien podría ser algo como:

Código Delphi [-]
type
  TVariables = (Var1, Var2, Var3, Var4);
  TAVariables = array [TVariables] of Integer;

var
  AVariables: TAVariables;

begin
  // Inicializar todas en 0
  for I := Low(TVariables) to High(TVariables) do
    AVariables[i] := 0;
  // Cambiar valor a cualquier variable
  AVariables[Var3] := 234
end;

Espero que cualquiera de las soluciones que te damos te sirvan...


Saludos...