Objetos en un TString

[ecfisa]

Hola.

Hice las pruebas sobre el componente que usó Angel. Ahora viendo tu ejemplo probé con el componente ComboBox y no presenta nigún problema! , pero no es así con el ListBox.

Código Delphi [-]
// Se cargan los mismos datos en cada componente
procedure TForm1.FormCreate(Sender: TObject);
begin
  // lb es de clase TListBox
  lb.Items.Clear;
  lb.Items.AddObject('menos 1', TObject(-1));
  lb.Items.AddObject('menos 2', TObject(-2));
  lb.Items.AddObject('menos 3', TObject(-3));
  // cb es de clase TComboBox
  cb.Items.Clear;
  cb.Items.AddObject('menos 1', TObject(-1));
  cb.Items.AddObject('menos 2', TObject(-2));
  cb.Items.AddObject('menos 3', TObject(-3));
end;

// ComboBox
procedure TForm1.btnComboBoxClick(Sender: TObject);
begin
  ShowMessage(cb.Items.IndexOfObject(TObject(-1)).ToString);
end;

// ListBox
procedure TForm1.btnListBoxClick(Sender: TObject);
begin
  ShowMessage(lb.Items.IndexOfObject(TObject(-1)).ToString);
end;

Resultado:


Saludos