Ошибка inaccessible value

[Slym]

procedure TfrCollect.setImei(const id, imei, ip : string);
var i:integer;
begin
  for i:= 0 to lvConnections.Items.Count - 1 do
  with lvConnections.Items[i] do
  begin
    if SubItems.Count>=2 then
      if (SubItems[0] = imei) and (SubItems[1] = ip) then
        exit;
  end;
  with lvConnections.Items.Add do
  begin
    Caption := id;
    SubItems.Add(IMEI);
    SubItems.Add(ip);
  end;
end;

procedure TfrCollect.Button1Click(Sender: TObject);
var i:integer;
begin
  for i:=0 to 10 do
    setImei(IntToStr(i),IntToStr(i),IntToStr(i));
  for i:=0 to 10 do
    setImei(IntToStr(i),IntToStr(i),IntToStr(i));

end;