Record

Bom pessoal.
Eu tenho um record da seguinte forma:
TProduct = Record
CodProduto: Integer;
Descricao: String;
end;
Product = Array [1..500] of TProduct;
As perguntas são:
Como eu faço para limpar todos os registros do record de uma só vez?
Como eu posso fazer com que o array seja infinito?
Espero ter sido claro e que possam me ajudar.