Inicializacion de variables

[xerkan]

Tengo un par de tipos de variable para componer un tipo medio complejo de variable:

TTipo=record
Porcentaje: Single;
Importe: Currency;
end;
TValores=Record
Valor1: TTipo;
Valor2: TTipo;
Valor3: TTipo;
end;

var
Valor: TValores;

Pues bien me gustaria saber si hay alguna manera de inicializar automaticamente la variable Valor para que todos sus registros se queden a cero sin tener que hacerlo manualmente uno a uno como lo tengo q hacer ahora.

ej.: Valor.Valor1.Porcentaje:=0;
Valor.Valor1.Importe:=0; .......