hsr/////////////////////////////////////////////////////////////////
1.Textfile형식은 헬프에 fucntion의 결과로는 넘길수없다고 나옵니다.
따라서 procedure나 fucntion의 함수의 인자로 넘겨야할거 같습니다.
procedure TForm1.text(var txt:Textfile);
begin
    AssignFile(txt, ExtractFilePath(Application.ExeName) + 'test.txt');
end;

procedure TForm1.Button2Click(Sender: TObject);
var
    f_h : TextFile;
    str : string;
begin
    text(f_h);
    Reset(f_h);
    while not Eof(f_h) do begin
       Readln(f_h, str);
       Memo2.Lines.Add(str);
    end;
    Closefile(f_h);
end;
------------------------------------------------------------------
2.배열형은 Type형으로 넘겨보았습니다.
먼저,
type
   ArrayType = array[0..9] of Char;
을 선언한후,
function str_array : ArrayType;
begin
    result := '0123456789';   //('0', '1', '2', '3', '4', '5', '6', '7', '8', '9')
end;

procedure TForm1.Button4Click(Sender: TObject);
var
    s_a : ArrayType;
begin
    s_a := str_array;
    Memo2.Lines.Add(str_array);
    Memo2.Lines.Add(s_a);
end;