Как прочитать множество из строки

type
  ByteSet=set of Byte;
 
function StringToSet(v: AnsiString): ByteSet;
type
  TToken=(ttNomber, ttPause, ttDiapasone, ttEnd, ttOther, ttError);
var
  i: Integer;
  lastNomber: byte;
 
  procedure SpaceDil;
  begin
    while (v[i] in [',', ' ', '.']) do
      inc(i)
  end;
 
  function NextToken: TToken;
  begin
    Result:=ttOther;
    if i>Length(v) then
      exit(ttEnd);
    try
      case v[i] of
        '0'..'9': Result:=ttNomber;
        ',', ' ': Result:=ttPause;
        '.': if v[i+1]='.' then Result:=ttDiapasone
      end;
      SpaceDil
    except
      Result:=ttError
    end
  end;
 
  function ReadNomber: Byte;
  const
    Null=ord('0');
  begin
    Result:=0;
    while (i<=Length(v)) and (v[i] in ['0'..'9']) do
      begin
        Result:=Result*10+(ord(v[i])-Null);
        inc(i)
      end
  end;
 
begin
  Result:=[];
  i:=1;
  while true do
    case NextToken of
      ttNomber: begin lastNomber:=ReadNomber; include(Result, lastNomber) end;
      ttDiapasone: Result:=Result+[lastNomber+1..ReadNomber];
      ttEnd: exit;
      ttOther,ttError: raise Exception.Create('Not valid input set: '+v);
      ttPause:
    end
end;