SetFormKeyPress

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