请教packed record的问题

type
test packed record
  table : array[0..9] of char
  value : array[0..100] of char.......procedure test(object:TObject);
var
  a : test;
begin
  FillChar(a,110,#0);
  a.table='table';
  a.value='value'
end;我想问的是a在这个procedure中占用的内存如何被释放掉
在var中声明了a，在procedure中也赋值了，那如何在procedure结束后释放掉a
a也不是类，是系统自动释放吗？
新手，希望能有答案！