Как вернуть массив из фунции в Delphi

[Golovastik]

Столкнулся с проблемой, помогите!!! Фунция разбивает строку на массив слов, вот то это масси мне и нужно вернуть (words). Может нужно что то в глобыльных описать? Ошибка на result !!!

 function GetWordsMass(st:string): words;
 var
   i: Integer;
   words : array of string;
   text : TStringList;
 begin
   text := TStringList.Create;
   text.DelimitedText := st;
   text.Delimiter := ' ';

   SetLength(words, text.Count);
   for i := 0 to text.Count-1 do
    begin
    words[i] := text[i];
    end;
 result := words;
end;

[DarkEvil]

А чем такой вариант не устраевает?
function GetWordsMass(st:string): TStringList;

[Пепел Феникса]

type 
 Words=array of string;

function GetWordsMass(st:string): words;
var
i: Integer;
word : words;
text : TStringList;
begin
text := TStringList.Create;
text.DelimitedText := st;
text.Delimiter := ' ';

SetLength(word, text.Count);
for i := 0 to text.Count-1 do
begin
word[i] := text[i];
end;
result := word;
end;

чтото вроде такого...точно не уверен, но намек точно дал

[Golovastik]

Пепел Феникса -> ОНО!!! THANX!!!