Funcao - foco de outra forma diferente de setfocus

Quando aparecer a mensagem de erro:

"Cannot focus a disabled ou invisible window."

Não use 

 DBedit1.setfocus;

Use:

 ActiveControl := dbedit1;