< '작업중' 메시지를 표시하기 위한 폼 >

procedure TfrmMsgBox.FormClose(Sender: TObject; var Action: TCloseAction);
begin
        Action  :=  caFree;
end;

procedure TfrmMsgBox.FormCreate(Sender: TObject);
begin
        (Sender  as  TForm).BorderStyle  :=   bsNone;
        (Sender  as  TForm).Color            :=   clBtnFace;
        (Sender  as  TForm).FormStyle     :=   fsStayOnTop;
        (Sender  as  TForm).KeyPreview  :=   True;
        (Sender  as  TForm).Position        :=   poMainFormCenter;
        (Sender  as  TForm).Visible           :=  True;
        (Sender  as  TForm).WindowState:=  wsNormal;
        (Sender  as  TForm).Height           :=  150;
        (Sender  as  TForm).Width            :=  300;

        Panel1.Color           :=    clMenuHighlight;
        Panel1.BorderStyle :=    bsSingle;
        Panel1.Align            :=    alClient;

        Label1.Caption       :=   '데이터 처리중 입니다.';
        Label1.Font.Color   :=   clYellow;
        Label1.Font.Size     :=   16;
        Label1.Font.Style    :=   [fsBold];

        Label2.Caption        :=  '잠시만 기다려 주십시오.';
        Label2.Font.Color    :=  clWhite;
        Label2.Font.Size      :=  16;
        Label2.Font.Style     :=  [fsBold];
end;

< 사용예제 >
        try
                이벤트 시작
                       :
                Screen.Cursor  :=  crSQLWAIT;
                frmMSGBOX      :=  TfrmMSGBOX.Create(Application);
                frmMSGBOX.Show;
                       :
                이벤트 종료
        finally
                frmMSGBOX.Close;
                Screen.Cursor  :=  crDefault;
        end;