begin
    if key=#13 then { 判断是按回车键}
        perform(WM_NEXTDLGCTL,0,0);{移动到下一个控件}
end;