Wie bei einer Function ein ZweiDimensionales zurück geben ??

[Luke_83]

Hallo hab mal ne Frage und zwar wie kann man bei einer Function ein Zwei Dimensionales Array zurückgeben.

Delphi-Quellcode:

function Auslesen(Path:String):String;
var Zeilen:TStringList;
    z,i_r,i_z:Integer;
    a,s:String;
    Zeilen_Temp:String;
    Reihe_Zeichen_Org:Array[0..1000] of Array [0..10] of String;
Begin 
 Zeilen:=TStringList.Create;
 Zeilen.LoadFromFile(path);
 z:=0;
 For i_r:=0 to Zeilen.Count-1 do Begin
     Zeilen_Temp:=Zeilen.Strings[i_r];
     For i_z:=1 to length(Zeilen_Temp) do Begin
         IF Zeilen_Temp[i_z]<>'#' Then Begin
            a:=s+Zeilen_Temp[i_z]; s:=a;
         End;
         IF Zeilen_Temp[i_z+1]='#' Then Begin
            Reihe_Zeichen_Org[i_r,z]:=a;
            s:=''; a:='';
            z:=z+1;
         End;
     End;
     z:=0;
  End;

  result:=Reihe_Zeichen_Org;
End;

Am Ende der Funktion will ich dann das "Reihe:Zeichen_Org" Array zurückgeben was bisher aber noch nicht geklappt.

gruß Luke