strtoint 很奇怪！

篮球用品>>0
日用品>>1
生活用品>>1
ComboBox 里面是这样的数据然后我为了判断>>后面的值是否大于0 也就是他的子类所以需要取出来所以做了如下处理procedure TForm1.bsSkinComboBox2Change(Sender: TObject);
begin
if (strtoint(copy(bsSkinComboBox2.Text,AnsiPos('>>',bsSkinComboBox2.Text)+2,length(bsSkinComboBox2.Text)-AnsiPos('>>',bsSkinComboBox2.Text)))>0)
then
showmessage('大于0！');
end;
发生错误 “1”is not a valid integer value 估计是编码或者是类型上的问题但不知道怎么解决！