procedure TForm1.ComboBox1Click(Sender: TObject);
begin
if (GetKeyState(VK_DOWN)<0)or(GetKeyState(VK_UP)<0)
or(GetKeyState(VK_RETURN) < 0) then Exit;
...
end;
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if (GetKeyState(VK_DOWN)<0)or(GetKeyState(VK_UP)<0)
or(GetKeyState(VK_RETURN) < 0) then Exit;
...
end;
procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
Mgs: TMsg;
begin
if Key = VK_RETURN then
begin
PeekMessage(Mgs, 0, WM_CHAR, WM_CHAR, PM_REMOVE); ShowMessage('Intro fué presionada');
end;
end;