tdbcombobox salir con escape
 

Hola por hay tengo una duda sobre este objeto

Utilizo delphi 6 y estoy tratando de habilitar el escape como tecla para ir al objeto anterior

estoy haciendo lo siguiente:
procedure TForm1.DBComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#27 then
Form1.SelectNext(Form1.ActiveControl,false,false);
end;

y con esto me pasa al control anterior pero el problema que me deja el control DBComboBox1 pintado de azul como si tuviera el foco igual que el control al que se regreso, hago lo mismo con el enter pero con el enter si lo deja sin estar pintado.

tambien intente con
keybd_event( 9, 0, vk_Shift, 0);
Pero con este no funciona.
si le envio la siguiente linea con el enter si funciona
keybd_event( 9, 0, 0, 0);



mi problema es que necesito que se le quite el color azul al objeto para que no se vea como que tiene el foco ese objeto.

Alguin que me pueda decir como le quito el color azul, a un tdbcombobox para que no se ponga como que estoy en ese campo.

Como lo solucione
 

Bueno lo que hice al final de cuentas fue usar esto

keybd_event( 16, 0,0,0); //presiona shift
keybd_event( 9, 0,0,0); //Presiona tab regresa al campo anterior
keybd_event( 16, 0,2,0);//Se suelta el shift
keybd_event( 9, 0,2,0); // se suelta el tab se puede omitir

y de esta forma no deja el control de color azul al presiona escape