Как записать в массив последовательность из "Edit" (Delphi)

[Erlotaza]

Грубо говоря: есть edit (для ввода чисел) и по нажатию на кнопку программа должна считать с "эдита" последовательность чисел, например 1,3,8,15,21 как массив. Вот я знаю по отдельности было бы просто, например: K:=edit1.Text; b:=edit3.Text, а тут как-то нужно "указать" программе что числа разделены запятыми; что в одной строке массив из a[i]. Заранее благодарен

[veniside]

uses
  System.RegularExpressions, System.SysUtils;

type
  iArray = array of integer;

procedure str2array(const s: string; var a: iArray);
var
  i: integer;
begin
  with (TRegEx.Create('([0-9]+)\s*,\s*').Matches(s + ',')) do begin
    //
    SetLength(a, Count);
    for i := 0 to Count - 1 do
      a[i] := StrToIntDef(Item[i].Groups.Item[1].value, 0);
  end;
end;