Agregando a lo que comenta cadetill, si estas variables no pertenecen a una clase, puedes valerte de la parte
initialization de la unit:
Código Delphi
[-]
unit Unit1;
interface
type
TTipo = record
Porcentaje: Single;
Importe: Currency;
end;
var
Tipo: TTipo;
implementation
initialization
with Tipo do
begin
Porcentaje := 0;
Importe := 0;
end;
end.