1:
2:
3:
4:
5:
6:
7:

procedure KlasseA.test;
var einArray : Array of String;

begin
   fueller := Klasse2.create();
   fueller.arrayFuellen(einArray);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure Klasse2.arrayFuellen(anArray: Array of String);
var i : Integer;

begin
  {Datenbankabfrage vorbereiten und ausführen}
  ...

  SetLength(anArray, query1.fieldCount);

  for i := 0 to (Query1.fieldCount) do
  begin
    anArray[i] := Query1.fields.Fields[i].AsString;
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

type 
  TDynStrArray : array of string;

...

procedure FillStrArray(var Arr:TDynStrArray; L:Longword)
begin
...
  SetLength(Arr,L);
...
end;

//Aufruf
var StrArr:TDynStrArray;
begin
  FillStrArray(StrArr,10);
end;