処理中表示

時間のかかる処理で実行中を知らせるDialogを表示したい。（DialogのGetFocus利用）
[内容]
時間のかかる処理の前にDialogを表示して、時間がかかる処理が完了した時点でDialogを閉じるようにしてもDialogが表示されない

Form側
Button Button1 {
    X = 159;
    Y = 219;
    Width = 79;
    Height = 38;
    Title = "実行";

    Function OnTouch( e ) {
        Get("Dialog1.crs");
    }
}

Dialog側
Dialog Dialog1 {
    Title = "Dialog1";
    Form Form1 {
        Width = 300;
        Height = 200;
        Label Label1 {
            X = 27;
            Y = 67;
            Width = 242;
            Height = 32;
            Value = "しばらくお待ちください";
            FontSize = 20;
        }
        /* 最初にフォーカスを受けるオブジェクトとして
           Buttonを配置（ただし、サイズは0） */
        Button Button1 {
            X = 0;
            Y = 0;
            Width = 0;
            Height = 0;

            Function OnGetFocus( e ) {

                /* 時間のかかる処理 */

                /* Dialog消去 */
                Dialog1.Delete();
            }
        }
    }
}