Array Rückgabewert Funktion

[ExceptionOverflow]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

var
  rec: Integerarray ;

begin
  bedingung;
// Die Funktion wurde aufgerufen aber das rec nicht befüllt
   Edit1.Text := InttoStr(rec[1]);

end;

daher:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

var
  rec: Integerarray ;

begin
  rec := bedingung;
   Edit1.Text := InttoStr(rec[1]);

end;

Edit:

war zu langsam, damit sorry für den "fast" doppelpost ^^