Problem mit dyn. Arrays bei Übergabe an Funktion

[Brainshock]

Hi,

hab eigentlich keine Probleme damit. Hab in beiden Units die Types eingebunden und den beschriebenen Typ genommen.
Das Array hab ich als var übergeben, sonst ist es bei der Rückgabe wieder Länge 0.
Quellcode sieht ungefähr so aus:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Types, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  UpdateListFile : TStringDynArray;
begin
  if Unit2.Check4UpdateList(UpdateListFile) then
  begin
    ShowMessage(IntToStr(Length(UpdateListFile))); // hier mal ne Message, um die länge zu kontrollieren
    Caption:= 'OK';
  end;  
end;

Delphi-Quellcode:

unit Unit2;

interface

uses
  Types;

implementation

function  Check4UpdateList(var UpdateListFile : TStringDynArray): boolean;
begin
  SetLength(UpdateListFile, 1);  // hier gibts keinen Fehler
  Result := true;
end;

Viel Glück und mfg