delphi有引用传参的吗?解决办法

delphi有引用传参的吗?
[color=#00CCFF]private
 m_Img: array of TImage; //TImage控件动态数组


function FreeNode(): Integer; //怎样可以将动态数组当引用传进来？
var
  i: Integer;
begin

  for i := 0 to Length(m_Img) - 1 do //释放动态数组
  begin  
  if (m_Img[i] <> nil) then
  begin
  m_Img[i].Free;
  m_Img[i] := nil;
  end;
  end;

  SetLength(m_Img, 0); //清空m_Img动态数组

  Result := 1;
end;[/color]


------解决方案--------------------
您为何你不放在delphi论坛？
------解决方案--------------------
function FreeNode(var LImg: array of TImage): Integer
------解决方案--------------------
把数组做成类传递
------解决方案--------------------

探讨

function FreeNode(var LImg: array of TImage): Integer

------解决方案--------------------

Delphi(Pascal) code

Finalize(Image);