oops es que no lo habia compilado.... corrijo mi post aqui:
puesto que pones Clave1 := Integer(.....)
es obvio que clave1 y clave son enteros, y esta bien la forma de asignar... y para llenar el combo con un solo item tendrias que hacer algo asi como
Código Delphi
[-]
with combobox1 do begin
Items.AddObject('Item1',
TObject(12); // donde el primer parametro es la cadena que se mostrara y el segundo es el valor que se guardara Internamente
salu2