Как сделать функцию из данного кода(парсинг)

const DelSym = ', ';
var Text,Word: string; i,y,z: integer;
begin
listbox1.clear;
  Text:=edit5.Text+',';
  for i := 1 to Length(Text) do
    if Pos(Text[i],DelSym) > 0 then
      Text[i]:=',';
 
  if Text[1] = ',' then
    Delete(Text,1,1);
  while Pos(',,',Text) > 0 do
    Delete(Text,Pos(',,',Text),1);
 
  repeat
    Word:=Copy(Text,1,Pos(',',Text)-1);
    Delete(Text,1,Length(Word)+1);
    ListBox1.Items.Add(Word);
  until Length(Text) = 0;

type
 StringArray = array of string;
 
...
 
function Per(S1: string): StringArray;
const DelSym = ', ';
var
Text:String; 
Word: string;
i: integer;
list: array of string; 
 
begin
  Text:=S1+',';
  for i := 1 to Length(Text) do
    if Pos(Text[i],DelSym) > 0 then
      Text[i]:=',';
 
  if Text[1] = ',' then
    Delete(Text,1,1);
  while Pos(',,',Text) > 0 do
    Delete(Text,Pos(',,',Text),1);
 
  repeat
    Word:=Copy(Text,1,Pos(',',Text)-1);
    Delete(Text,1,Length(Word)+1);
    list[Length(Text)] := word;
  until Length(Text) = 0;
 SetLength(Result, 2);
 Result [Length(Text)]:= list;
end;

With TStringList.Create do begin
 Delimiter:=',';
 DelimitedText:='Задан, текст, слова, в, котором, разделены, пробелами.';
 ShowMessage(Text);
 Free;
end;