Получения значения Cmb.Items.Object

[Ce4kok]

Всем привет.

Я заполняю ComboBox таким способом:

Form1.ADOTable1.First;
for I := 0 to Form1.ADOTable1.RecordCount - 1 do
begin
ComBoBox1.Items.AddObject(Form1.ADO Table1.FieldByName('Тип').AsString, TObject(Form1.ADOTable1.FieldByName ('ID').AsInteger));
Form1.ADOTable1.Next;
end;
//-----------------------

Я хочу увидеть значение 'ID' определённого элемента списка:

ShowMessage(ComboBox1.Items.Objects[ComboBox1.ItemIndex +1]);

Но тут сразу же возникает проблема с типом Object.
Ребята, может кто подскажет как мне увидеть ID значение привязанное к определённому элементу списка?

[Скандербег]

ShowMessage(IntToStr(Integer(ComboBox1.Items.Objects[ComboBox1.ItemIndex])));

ItemIndex+1 - опасный код. Если ItemIndex указывает на последний элемент, то ItemIndex+1 приведет к ошибке во время выполнения.

[Ce4kok]

Спасибо за замечание!
Действительно вы заметили немаловажный аспект. =)

Индекс я получил с помощью SQL-запросов
Тему можно закрывать.