定期的に自動で「画面表示〜処理〜画面閉じる」をするには？

E 2005-02-21 08:28:12 No: 13339

常駐Exe（１年中立ち上げっぱなしのExe）で
１．特定の時間になると、メインフォームの画面Ａから画面Ｂを自動的に表示。
２．画面Ｂで処理を実行。
３．処理終了後に画面Ｂを自動的に閉じる。
の処理を行いたいのですが、画面Ｂが閉じない事象が発生して困っています。
常に発生せず、今までに６回中、２回発生しています。
閉じない状態の画面Ｂの右上の×ボタン（ウィンドウを閉じるボタン）を押すと
「モジュール'xxx'のアドレスxxxxxxxxでアドレスxxxxxxxxに対する読み込み違反がおきました。」
画面Ｂ上の２つのボタンを押すと
「無効なポインタ操作」
「不正な引数が渡されました」
とエラーメッセージが表示されます。
画面Ｂを閉じることができず、Exeを終了するしかありません。
原因を教えて下さい。

バージョン：Delphi7 Enterprise

以下、ソースの概略です。
■UnitA;（画面Ａ）
procedure TFormA.OpenB;
    if FormB = nil then begin
        // コンストラクタ
        FormB := TFormB.CreateForm(Application);
        FormB.Main;

■UnitB（画面Ｂ）
var
FormB: TFormB;
implementation

constructor TFormB.CreateForm(Owner: TComponent ;);
Create (Owner);

procedure TFormB.Main;
(* 画面Ｂで行う処理 *)
FormB.Close;

// TFormBのOnCloseイベント
procedure TFormB.FormClose(Sender: TObject; var Action: TCloseAction);
FormB := nil;
Action := caFree;

それって自殺行為 2005-02-21 09:15:10 No: 13340

>procedure TFormB.FormClose(Sender: TObject; var Action: TCloseAction);
> FormB := nil;
> Action := caFree;

イベントハンドラ内で自分自身をFree または nil とすると、そのようなエラーに悩まされることもあります。
フォームを破棄するには Release すべきです。

jok 2005-02-21 10:22:30 No: 13341

OnClose イベントハンドラのなかで Action := caFree; の場合は Release が
呼ばれます。エラーは、閉じる動作ではなく、何か別の処理のせいでしょう。