var
strs:tstringlist;
str:string;
intlist:array of integer;
i:integer;
begin
strs:=tstringlist.Create;
strs.Delimiter:='.';
strs.DelimitedText:='1.3.5.12.22.3.4';
setlength(intlist,strs.Count);
for i:=0 to strs.Count-1do
intlist:=strtoint(strs);
...
end;
