procedure TMainForm.FormShow(Sender: TObject);
var
SplashForm : TForm;
LB : TLabel;
begin
  SplashForm := TForm.Create(Application);
  LB := TLabel.Create(SplashForm);
  try
    SplashForm.Height := 100;
    SplashFOrm.Width := 200;
    SplashForm.BorderStyle := bsNone;
    SplashForm.position := poDesktopCenter;
    SplashForm.Font.Charset := CHINESEBIG5_CHARSET;
    LB.Parent := SplashForm;
    LB.Caption := '正在準備資料庫，請稍侯...';
    LB.Top := 40;
    LB.Left := 20;
    SplashForm.Show;
    Application.ProcessMessages;
    sleep(10000); // 測試用停十秒，請刪掉它
    // 你開 table 及 checking 的地方
    // ....
  finally
    LB.Free;
    SplashForm.Free;
  end;
end;    

procedure TForm1.Button1Click(Sender: TObject);
begin
  try
     WaitFM := TWaitFM.create(self);
     WaitFM.show;
     WaitFM.Label1.Caption := '檢查資料中,請稍待...';//這裡可以更該Label顯示的文字
     //這裡去做你的check
     WaitFM.Update;
  finally
     WaitFM.free;
  end;
end;

引言: Sorry,這不是我要的答案,或許是我說明的不夠清楚,我的問題是: 我有一支程式約 2mb , 執行時會先去許多table讀資料,並做一些check動作, 在做完這些check , 第一個 form 才會出現(約20-40 秒),而往往user以為沒點到該程式,所以會再次點他,而啟動第2次(這程式是允許重複執行的), 我的期望是當user有執行到這程式時,在第一個 form 出現前先show個 message 告訴user已經在執行了