Cambiar el foco entre componentes.

Para para pasar el foco al componente siguiente de quien lo tiene:

SendMessage(Form1.Handle, WM_NEXTDLGCTL, 0, 0)

Para pasarlo al anterior:

SendMessage(Form1.Handle, WM_NEXTDLGCTL, 0, 0)