SetFormKeyPress

begin RMT AION
if IsAllowSetFocus(oForm) then
begin
Key :=#0;
SendMessage(oForm.Handle,WM_NEXTDLGCTL,0,0);
end;
end;