Código Delphi [-]ComboBox1.Items.Objects[Index] := Pointer(666);
ComboBox1.Items.Objects[Index] := Pointer(666);