procedure SetFocus 

Передает фокус компоненту, активизируя его. Если компонент может быть не всегда доступен, проверяйте возможность установить фокус методом CanFocus. В случае попытки установить фокус на невидимый или недоступный компонент, возникнет исключение.