Hola coej, tienes que quitar las dos líneas que estan en rojo para que funcione tu codigo, la explicación ya te la ha dado nemesio.
Código:
......................................
implementation
{$R *.dfm}
begin
Form1.Combobox1.items.add('ITEM');
procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
if key = Chr(13) then
.........................
Saluditos