Fórum Matriz mista, como liberar memória #336915

Tenho a seginte matriz:
type
Tmatrizmista = Record
codigo: integer;
Ref: integer;
Produto: string;
quant: integer;
valor: Extended;

end;
Aí tenho um botão:
procedure TForm1.BitBtn3Click(Sender: TObject);
var
vetor:Array of Tmatrizmista;
i:integer;
begin
setlength(vetor,4);
vetor[0].quant:=1;
vetor[1].quant:=2;
vetor[2].quant:=3;
vetor[3].quant:=4;
for i:=0 to 3 do begin
showmessage(inttostr(vetor[i].quant));
end;

end;

Funciona beleza.
Quero liberar a memória para vetores em quande quantidade.
Alguem sabe?