[Alegun]

Можно ещё средствами строкового списка

Код:

var
 dt: array of byte;
 sl: TStrings;
 i: integer;
begin
 Memo1.Clear;
 sl:= TStringList.Create;
 sl.DelimitedText:= '10,122, 255,243 1,5,62';
 SetLength(dt, sl.Count);
 for i := Low(dt) to High(dt) do
  dt[i]:= StrToInt(sl[i]);
 sl.Free;
end;