dynamisches Array referenzieren

[Mayday171]

Hallo,
Habe eine Funktion geschrieben die Dateinamen aus einen Ordner ausließt und diese eigentlich mit Hilfe von einer Referenz zurückgeben soll. Leider funktioniert das setlength(...) bei typisierten Arrays nicht. Kann man das irgendwie anders regeln?
Wie funktioniert das?=??

Delphi-Quellcode:

//////////////////////////////////////////////////////////////////////////
///
/// FIND FILES FUNTION
///
//////////////////////////////////////////////////////////////////////////
function TForm1.findfiles(var datei:array of TSearchRec):integer;
var i:integer;
    a:integer;
     Rec:TSearchRec;
 begin
   i:=0;
   a:=0;
   while getconfig('checkboxen',inttostr(i))<>'error' do
    begin
      if findfirst(getconfig('Allgemein','root')+getconfig('checkboxen',inttostr(i))+'\*.txt',faAnyFile,Rec)<>0 then
       begin
         i:=i+1;
         continue;
       end;
       //setlength(datei,a+1);
       datei[a]:=rec;
       a:=a+1;
      while findnext(rec)=0 do
        begin
         //setlength(datei,a+1);
         datei[a]:=rec;
         a:=a+1;
        end;

      i:=i+1;
    end;
    result:=0;
 end;
//////////////////////////////////////////////////////////////////////////
///
/// FIND FILES FUNTION ENDE
///
//////////////////////////////////////////////////////////////////////////

procedure TForm1.Button1Click(Sender: TObject);
var dateien:array of TSearchRec;
    i:integer;
begin
findfiles(dateien);
for i:=0 to high(dateien) do
 listbox1.Items.Add(dateien[i].Name);
end;

MfG