type
 TByteArr = array of Byte;
 
procedure Proc1(arr: TByteArr);
begin
 SegLength(arr, 10); // 動態配置記憶體
 arr[0] := 0;
 ... 
end;    procedure Proc2;
var
 myArr: TByteArr;
begin
 Proc1(myArr);
 ...
 
 // 處理完畢
 SetLength(myArr, 0); // 是否需要清除動態配置之記憶體?
end;  

procedure Proc2;
var
 myArr: TByteArr;
begin
 Proc1(myArr);
 ...
 
 // 處理完畢
 SetLength(myArr, 0); // 是否需要清除動態配置之記憶體?
end;