组合框赋加标识数据有问题

//ComboBox_Name 为下拉组合框
procedure TForm1.DoWhat;
var
    i:integer;
A:integer;
begin  //清空
  ComboBox_Name.Items.Clear;

  i:=-1;

  //组合框中加入条目
  ComboBox_Name.AddObject('没名',TObject(i));
   A:=integer(ComboBox_Name.Items.Objects[0]);
   //----------- 这句话在执行时说 TStringList 越界end;
// 假如把  i:= -1 改为 i:= 0 则不会出问题// 我本来想做的是在一个条目后面跟一个标识数字的，可能是正数也可能是负数