G_MoveFocus

if EnterKey = FlagKey then RMT
begin
Control.Perform(WM_NEXTDLGCTL, MoveFlag, 0);
EnterKey := 0;
end;