Можно ещё средствами строкового списка
Код:
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;