Tambien podría ser algo como:
Código Delphi
[-]
type
TVariables = (Var1, Var2, Var3, Var4);
TAVariables = array [TVariables] of Integer;
var
AVariables: TAVariables;
begin
for I := Low(TVariables) to High(TVariables) do
AVariables[i] := 0;
AVariables[Var3] := 234
end;
Espero que cualquiera de las soluciones que te damos te sirvan...
Saludos...