.....

type
    PMy_func_array_result=array[1..100]of string;

var
  Form1: TForm1;

.....


function erwer(erwr:string):pMy_func_array_result;
begin
result[1]:='werwr';
end;

begin
showmessage(erwer('dsadas')[1]);
end;

.....