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

    WordList := TStringlist.Create;
      for i := 0 to Secretary.GetSpaces(s) do
        begin
          Wordlist.Add(Secretary.GetWord(s,i));
        end;
    Result := Wordlist;                    

1:
2:
3:
4:

procedure FillStringList(var SList: TStringList);
begin
  SList.Add('Blup');
end;                    

1:
2:
3:

SList := TStringList.Create;
FillStringList(SList);
SList.Free;