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
[解决办法]
把数组做成类传递
[解决办法]

Delphi(Pascal) code

Finalize(Image);