誰來救救我啊!一個對你來說很簡單的問題!!!急!!!急!!!(2分)

我做了一個在運行程式時當用戶輸入完用戶名及密碼並按回車鍵后就出現的一等待視窗,
在主程式中是這樣寫道的:
i:=0;
Market_IN:='RE_Market';//為RE_Market時用戶及密碼不通過,EX_Market為用戶在密碼輸入視窗中按了取消鍵,IN_Market為用戶密碼正確通過!
while Market_IN<>'IN_Market' do
begin
if lin_form = nil then //Lin_form為密碼輸入表單
lin_form:=Tlin_form.Create(application);
lin_form.ShowModal;
i:=i+1; //i 為輸入密碼次數
if(i=3)or(market_IN='EX_Market')then break; //如果用戶輸入三次錯誤密碼或者按下取消鍵,則跳出並退出系統
if waitform = nil then // 運行一個提示用戶等待的表單..
waitform:=twaitform.Create(application);
waitform.Show;
waitform.SetFocus;
mydata.userandpassword; //運行數據據打開並檢查用戶資料是否正確!
waitform.Close;
screen.Cursor :=crDefault;
end;
if(i=3)or(market_IN='EX_Market')then
begin if(i=3)then
messagebox(handle,'對不起,您無法提供正確進行本系統的用戶及密碼!!','系統提示',mb_ok+mb_iconhand);
close;
end
else begin
檢測成功......


****************
我在Waitform等待窗口中加入有一些標簽,和一個animate1控件,並在表單的OnCreate事件中
加有animate1.Active擊活運畫命令!一切ok,運行程式后,這個等等窗口除了標簽沒有顯示外
其它一切正常!!
為什麼會出現文字不顯示啊!,當我在運行等待表單時把 waitform.Show;改成 waitform.ShowModal;
則顯示,但是它不會去執行mydata.userandpassword過程來檢查用戶資料啊!!!這要如何做是好啊!

1.在waitform.Show;
waitform.SetFocus;
后加waitform.update;
2.是不是你將標簽的visible設為false,改為true;
不知成不成，你試試。

萬歲!!!謝謝!
非常非常感謝Zxb200的幫助!!!